diff options
| author | Miles Bader <miles@gnu.org> | 2006-09-01 23:52:28 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2006-09-01 23:52:28 +0000 |
| commit | 343d662867f2ad217c55e174ee5a58f0659543de (patch) | |
| tree | 9a1e0d8097cce19d06a5c5e61538165283f704c9 /lisp/gnus/gnus-art.el | |
| parent | 5deb7a514ba2d12953b29fa28bbc74daeaa21c25 (diff) | |
| download | emacs-343d662867f2ad217c55e174ee5a58f0659543de.tar.gz | |
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 128)
- Update from CVS
2006-09-01 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/rfc2047.el (rfc2047-quote-special-characters-in-quoted-strings):
Use standard-syntax-table.
2006-09-01 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-art.el (gnus-decode-address-function): New variable.
(article-decode-encoded-words): Use it to decode headers which are
assumed to contain addresses.
(gnus-mime-delete-part): Remove useless `or'.
* lisp/gnus/gnus-sum.el (gnus-decode-encoded-address-function): New variable.
(gnus-summary-from-or-to-or-newsgroups): Use it to decode To header.
(gnus-nov-parse-line): Use it to decode From header.
(gnus-get-newsgroup-headers): Ditto.
(gnus-summary-enter-digest-group): Use it to decode `to-address'.
* lisp/gnus/mail-parse.el (mail-decode-encoded-address-region): New alias.
(mail-decode-encoded-address-string): New alias.
* lisp/gnus/rfc2047.el (rfc2047-quote-special-characters-in-quoted-strings):
New function.
(rfc2047-encode-message-header, rfc2047-encode-region): Use it.
(rfc2047-strip-backslashes-in-quoted-strings): New fnction.
(rfc2047-decode-region): Use it; add optional argument `address-mime'.
(rfc2047-decode-string): Ditto.
(rfc2047-decode-address-region): New function.
(rfc2047-decode-address-string): New function.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-418
Diffstat (limited to 'lisp/gnus/gnus-art.el')
| -rw-r--r-- | lisp/gnus/gnus-art.el | 25 |
1 files changed, 20 insertions, 5 deletions
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 39292e33a1f..17cbbeb0a75 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -853,6 +853,9 @@ be displayed by the first non-nil matching CONTENT face." (defvar gnus-decode-header-function 'mail-decode-encoded-word-region "Function used to decode headers.") +(defvar gnus-decode-address-function 'mail-decode-encoded-address-region + "Function used to decode addresses.") + (defvar gnus-article-dumbquotes-map '(("\200" "EUR") ("\202" ",") @@ -2377,10 +2380,23 @@ If PROMPT (the prefix), prompt for a coding system to use." (set-buffer gnus-summary-buffer) (error)) gnus-newsgroup-ignored-charsets)) - (inhibit-read-only t)) + (inhibit-read-only t) + start) (save-restriction (article-narrow-to-head) - (funcall gnus-decode-header-function (point-min) (point-max))))) + (while (not (eobp)) + (setq start (point)) + (if (prog1 + (looking-at "\ +\\(?:Resent-\\)?\\(?:From\\|Cc\\|To\\|Bcc\\|\\(?:In-\\)?Reply-To\\|Sender\ +\\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\):") + (while (progn + (forward-line) + (if (eobp) + nil + (memq (char-after) '(?\t ? )))))) + (funcall gnus-decode-address-function start (point)) + (funcall gnus-decode-header-function start (point))))))) (defun article-decode-group-name () "Decode group names in `Newsgroups:'." @@ -4324,9 +4340,8 @@ Deleting parts may malfunction or destroy the article; continue? ") (handles gnus-article-mime-handles) (none "(none)") (description - (or - (mail-decode-encoded-word-string (or (mm-handle-description data) - none)))) + (mail-decode-encoded-word-string (or (mm-handle-description data) + none))) (filename (or (mail-content-type-get (mm-handle-disposition data) 'filename) none)) |