Index: bbdb-gnus.el
===================================================================
RCS file: /cvsroot/bbdb/bbdb/lisp/bbdb-gnus.el,v
retrieving revision 1.96
diff -u -r1.96 bbdb-gnus.el
--- bbdb-gnus.el	15 Mar 2003 00:32:49 -0000	1.96
+++ bbdb-gnus.el	10 Oct 2003 08:25:49 -0000
@@ -628,13 +628,18 @@
 BBDB."
   (let ((prq (list (cons 0 nil) (cons 1 nil) (cons 2 nil) (cons 3 nil))))
     ;; the From: header is special
-    (let* ((hdr (or (mail-fetch-field "from") (user-login-name)))
+    (let* ((hdr (or (mail-fetch-field "resent-from")
+                    (mail-fetch-field "from")
+                    (user-login-name)))
        (rv (bbdb/gnus-split-to-group hdr t)))
       (setcdr (nth (cdr rv) prq) (cons (car rv) nil)))
     ;; do the rest of the headers
-    (let ((hdr (or (concat (mail-fetch-field "to" nil t) ", "
-               (mail-fetch-field "cc" nil t) ", "
-               (mail-fetch-field "apparently-to" nil t)) "")))
+    (let ((hdr (or (concat (or (mail-fetch-field "resent-to" nil t)
+                               (mail-fetch-field "to" nil t))
+                           ", "
+                           (mail-fetch-field "cc" nil t) ", "
+                           (mail-fetch-field "apparently-to" nil t))
+                   "")))
       (setq hdr (rfc822-addresses hdr))
       (while hdr
     (let* ((rv (bbdb/gnus-split-to-group (car hdr)))