summaryrefslogtreecommitdiff
path: root/lisp/bbdb-gnus.el
diff options
context:
space:
mode:
authorRonan Waide <waider@waider.ie>2002-05-12 22:17:03 +0000
committerRonan Waide <waider@waider.ie>2002-05-12 22:17:03 +0000
commitb9ddef5cb2bcabb1c1a5494976b054d1f2faf107 (patch)
treecd122bd1ef8d5d0daa73c1f77bae1ced8c67ffd0 /lisp/bbdb-gnus.el
parent6355f4bb595fc285c47ad2a4b7dcf1d61699dea7 (diff)
Dave Love's big patch. See ChangeLog for full details.
Diffstat (limited to 'lisp/bbdb-gnus.el')
-rw-r--r--lisp/bbdb-gnus.el11
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/bbdb-gnus.el b/lisp/bbdb-gnus.el
index e3de14c..c420a20 100644
--- a/lisp/bbdb-gnus.el
+++ b/lisp/bbdb-gnus.el
@@ -112,7 +112,8 @@ C-g again it will stop scanning."
(msg-id (bbdb/gnus-get-message-id))
records cache)
(save-excursion
- (set-buffer gnus-original-article-buffer)
+ (set-buffer (get-buffer gnus-article-buffer))
+ (gnus-summary-toggle-header 1)
(if (and msg-id (not bbdb/gnus-offer-to-create))
(setq cache (bbdb-message-cache-lookup msg-id)))
@@ -134,6 +135,7 @@ C-g again it will stop scanning."
offer-to-create)))
(if (and bbdb-message-caching-enabled msg-id)
(bbdb-encache-message msg-id records))))
+ (gnus-summary-toggle-header -1) ; assume hidden originally
records))
;;;###autoload
@@ -407,6 +409,8 @@ This function is meant to be used with the user function defined in
;; this is a little bogus, since it will remain set after you've
;; quit Gnus
(or gnus-article-buffer (error "Not in Gnus!"))
+ ;; This is wrong for non-ASCII text. Why not use
+ ;; gnus-article-hide-signature?
(set-buffer gnus-original-article-buffer)
(save-restriction
(or (gnus-article-narrow-to-signature) (error "No signature!"))
@@ -503,9 +507,10 @@ addresses better than the traditionally static global scorefile."
bbdb-display-layout))
(bbdb-auto-notes-alist nil))
(bbdb/gnus-pop-up-bbdb-buffer nil)
- (set-buffer gnus-original-article-buffer)
+ (set-buffer (get-buffer gnus-article-buffer))
+ (gnus-summary-toggle-header 1)
(bbdb-show-all-recipients)
- ))
+ (gnus-summary-toggle-header -1)))
;;; from Brian Edmonds' gnus-bbdb.el
;;;