Package: bbdb
Version: 2.35.cvs20060204-1.1
There is an issue with insinuation of rmail in GNU Emacs 23, as the
insinuation code uses rmail-narrow-to-non-pruned-header, which no
longer exists.
Patch below.
--Barak.
$ git diff a1718f..314616
diff --git a/ChangeLog b/ChangeLog
index 98840a3..0c1f3f0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2009-11-18 Barak A. Pearlmutter <[email protected]>
+
+ * lisp/bbdb-rmail.el (bbdb/rmail-get-header-content): Fix RMAIL
+ insinuation in GNU Emacs23 by using rmail-get-header when
+ available, thus avoiding rmail-narrow-to-non-pruned-header, which
+ no longer exists in GNU Emacs 23.
+
2008-01-29 Didier Verna <[email protected]>
* lisp/bbdb-gnus.el (bbdb/gnus-summary-get-author): Use the proper
diff --git a/lisp/bbdb-rmail.el b/lisp/bbdb-rmail.el
index 3a2f6b6..d6aab98 100644
--- a/lisp/bbdb-rmail.el
+++ b/lisp/bbdb-rmail.el
@@ -37,11 +37,13 @@ BUF is actually the rmail buffer from which the current
message should
be extracted."
(save-excursion
(set-buffer buf)
- (save-restriction
- (rmail-narrow-to-non-pruned-header)
- (let ((headers (mail-header-extract))
- (header (intern-soft (downcase header-field))))
- (mail-header header headers)))))
+ (if (fboundp 'rmail-get-header) ; Emacs 23
+ (rmail-get-header header-field)
+ (save-restriction
+ (rmail-narrow-to-non-pruned-header)
+ (let ((headers (mail-header-extract))
+ (header (intern-soft (downcase header-field))))
+ (mail-header header headers))))))
(defun bbdb/rmail-new-flag( buf )
"Returns t if the current message in buffer BUF is new."
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
