The most recent patches I made to BBDB (just a couple days ago) didn't
make it into the 1.49 release, so here they are. They're not of interest
if you don't use MH.
--Fritz
*** bbdb-1.49/bbdb-hooks.el Wed Dec 1 10:45:25 1993
--- bbdb-new/bbdb-hooks.el Wed Dec 1 11:08:51 1993
***************
*** 81,87 ****
'(gnus-Group-mode gnus-Subject-mode gnus-Article-mode))
(set-buffer gnus-Article-buffer)
(point-min-marker))
! ;; ## need an MH-E clause.
(t (point-min-marker))
))
--- 81,91 ----
'(gnus-Group-mode gnus-Subject-mode gnus-Article-mode))
(set-buffer gnus-Article-buffer)
(point-min-marker))
! ;; MH-E clause added by knabe.
! ((eq major-mode 'mh-folder-mode)
! (mh-show)
! (set-buffer mh-show-buffer)
! (point-min-marker))
(t (point-min-marker))
))
diff -c bbdb-1.49/bbdb-mhe.el bbdb-new/bbdb-mhe.el
*** bbdb-1.49/bbdb-mhe.el Wed Dec 1 10:45:26 1993
--- bbdb-new/bbdb-mhe.el Wed Dec 1 11:05:43 1993
***************
*** 4,10 ****
;;; copyright (c) 1991 Todd Kaufmann <[EMAIL PROTECTED]>
;;; Interface to mh-e version 3.7 or later (modeled after bbdb-rmail).
;;; Created 5-Mar-91;
! ;;; Modified: 19-Oct-93 by [EMAIL PROTECTED]
;;; The Insidious Big Brother Database is free software; you can redistribute
;;; it and/or modify it under the terms of the GNU General Public License as
--- 4,10 ----
;;; copyright (c) 1991 Todd Kaufmann <[EMAIL PROTECTED]>
;;; Interface to mh-e version 3.7 or later (modeled after bbdb-rmail).
;;; Created 5-Mar-91;
! ;;; Modified: 30-Nov-93 by [EMAIL PROTECTED]
;;; The Insidious Big Brother Database is free software; you can redistribute
;;; it and/or modify it under the terms of the GNU General Public License as
***************
*** 45,55 ****
(or (bbdb-message-cache-lookup msg nil) ; nil = current-buffer
(let ((from (bbdb/mh-get-field "^From[ \t]*:"))
name net)
! (if (or (null from)
(string-match (bbdb-user-mail-names)
(mail-strip-quoted-names from)))
;; if logged-in user sent this, use recipients.
! (setq from (or (bbdb/mh-get-field "^To[ \t]*:") from)))
(if from
(bbdb-encache-message msg
(bbdb-annotate-message-sender from t
--- 45,60 ----
(or (bbdb-message-cache-lookup msg nil) ; nil = current-buffer
(let ((from (bbdb/mh-get-field "^From[ \t]*:"))
name net)
! (if (or (string= "" from)
(string-match (bbdb-user-mail-names)
(mail-strip-quoted-names from)))
;; if logged-in user sent this, use recipients.
! (progn
! (setq from (bbdb/mh-get-field "^To[ \t]*:"))
! (if (or (string= "" from)
! (string-match (bbdb-user-mail-names)
! (mail-strip-quoted-names from)))
! (setq from nil))))
(if from
(bbdb-encache-message msg
(bbdb-annotate-message-sender from t
