diff options
| author | Miles Bader <miles@gnu.org> | 2004-09-25 12:02:04 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2004-09-25 12:02:04 +0000 |
| commit | 9b5773bc8c6dec05f48a55582325d517193def04 (patch) | |
| tree | aa6948811d6844386db4e3da09063b01b7dfe5b4 /lisp/gnus | |
| parent | 4de43c8bd612fbcd97162dbdf4a74c2e157373e2 (diff) | |
| download | emacs-9b5773bc8c6dec05f48a55582325d517193def04.tar.gz emacs-9b5773bc8c6dec05f48a55582325d517193def04.tar.bz2 emacs-9b5773bc8c6dec05f48a55582325d517193def04.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-571
Merge from gnus--rel--5.10
Patches applied:
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-31
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-33
Update from CVS
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/gnus/gnus-msg.el | 16 |
2 files changed, 15 insertions, 6 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 60ad776347c..1148ec5618e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2004-09-23 Reiner Steib <Reiner.Steib@gmx.de> + + * gnus-msg.el (gnus-configure-posting-styles): Narrow to headers + in `header' match. Reported by Svend Tollak Munkejord. + 2004-09-20 Stefan Monnier <monnier@iro.umontreal.ca> * mm-decode.el (mm-copy-to-buffer): Preserve the data's unibyteness. diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index f986e451c02..496bce4bf21 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1801,9 +1801,11 @@ this is a reply." ;; Obsolete format of header match. (and (gnus-buffer-live-p gnus-article-copy) (with-current-buffer gnus-article-copy - (let ((header (message-fetch-field (pop style)))) - (and header - (string-match (pop style) header)))))) + (save-restriction + (nnheader-narrow-to-headers) + (let ((header (message-fetch-field (pop style)))) + (and header + (string-match (pop style) header))))))) ((or (symbolp match) (functionp match)) (cond @@ -1819,9 +1821,11 @@ this is a reply." ;; New format of header match. (and (gnus-buffer-live-p gnus-article-copy) (with-current-buffer gnus-article-copy - (let ((header (message-fetch-field (nth 1 match)))) - (and header - (string-match (nth 2 match) header)))))) + (save-restriction + (nnheader-narrow-to-headers) + (let ((header (message-fetch-field (nth 1 match)))) + (and header + (string-match (nth 2 match) header))))))) (t ;; This is a form to be evaled. (eval match))))) |