From 2c311f43f25dbb0a0353712573d06496bd93ace2 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 20 Apr 2011 00:38:49 +0000 Subject: [PATCH] gnus-registry.el (gnus-registry-action, gnus-registry-fetch-header-fast): Don't use mail-header that looks an internal function of mailheader.el. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-registry.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f02ef8de6..d137b42b5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-04-20 Katsumi Yamaoka + + * gnus-registry.el (gnus-registry-action) + (gnus-registry-fetch-header-fast): + Don't use mail-header that looks an internal function of mailheader.el. + 2011-04-19 Glenn Morris * time-date.el (time-to-days): Remove unused local variables. diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index 697dc373b..009786dec 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -304,8 +304,8 @@ This is not required after changing `gnus-registry-cache-file'." (let* ((id (mail-header-id data-header)) (subject (mail-header-subject data-header)) (recipients (gnus-registry-sort-addresses - (or (ignore-errors (mail-header "Cc" data-header)) "") - (or (ignore-errors (mail-header "To" data-header)) ""))) + (or (cdr (assq "Cc" data-header)) "") + (or (cdr (assq "To" data-header)) ""))) (sender (nth 0 (gnus-registry-extract-addresses (mail-header-from data-header)))) (from (gnus-group-guess-full-name-from-command-method from)) @@ -742,8 +742,8 @@ Addresses without a name will say \"noname\"." (if (and (numberp article) (assoc article (gnus-data-list nil))) (gnus-string-remove-all-properties - (mail-header header (gnus-data-header - (assoc article (gnus-data-list nil))))) + (cdr (assq header (gnus-data-header + (assoc article (gnus-data-list nil)))))) nil)) ;; registry marks glue -- 2.34.1