Mercurial > emacs

comparison lisp/gnus/gnus-art.el @ 72605:de654a6735da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
author Miles Bader <miles@gnu.org>
date Fri, 01 Sep 2006 23:52:28 +0000
parents cb6e677b13d4
children 87c011891481 c358d0861b16
comparison
equal deleted inserted replaced
72604:85f3da42ce8b 72605:de654a6735da
850 :group 'gnus-article-mime 850 :group 'gnus-article-mime
851 :type 'function) 851 :type 'function)
852 852
853 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region 853 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region
854 "Function used to decode headers.") 854 "Function used to decode headers.")
855
856 (defvar gnus-decode-address-function 'mail-decode-encoded-address-region
857 "Function used to decode addresses.")
855 858
856 (defvar gnus-article-dumbquotes-map 859 (defvar gnus-article-dumbquotes-map
857 '(("\200" "EUR") 860 '(("\200" "EUR")
858 ("\202" ",") 861 ("\202" ",")
859 ("\203" "f") 862 ("\203" "f")
2375 (mail-parse-ignored-charsets 2378 (mail-parse-ignored-charsets
2376 (save-excursion (condition-case nil 2379 (save-excursion (condition-case nil
2377 (set-buffer gnus-summary-buffer) 2380 (set-buffer gnus-summary-buffer)
2378 (error)) 2381 (error))
2379 gnus-newsgroup-ignored-charsets)) 2382 gnus-newsgroup-ignored-charsets))
2380 (inhibit-read-only t)) 2383 (inhibit-read-only t)
2384 start)
2381 (save-restriction 2385 (save-restriction
2382 (article-narrow-to-head) 2386 (article-narrow-to-head)
2383 (funcall gnus-decode-header-function (point-min) (point-max))))) 2387 (while (not (eobp))
2388 (setq start (point))
2389 (if (prog1
2390 (looking-at "\
2391 \\(?:Resent-\\)?\\(?:From\\|Cc\\|To\\|Bcc\\|\\(?:In-\\)?Reply-To\\|Sender\
2392 \\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\):")
2393 (while (progn
2394 (forward-line)
2395 (if (eobp)
2396 nil
2397 (memq (char-after) '(?\t ? ))))))
2398 (funcall gnus-decode-address-function start (point))
2399 (funcall gnus-decode-header-function start (point)))))))
2384 2400
2385 (defun article-decode-group-name () 2401 (defun article-decode-group-name ()
2386 "Decode group names in `Newsgroups:'." 2402 "Decode group names in `Newsgroups:'."
2387 (let ((inhibit-point-motion-hooks t) 2403 (let ((inhibit-point-motion-hooks t)
2388 (inhibit-read-only t) 2404 (inhibit-read-only t)
4322 Deleting parts may malfunction or destroy the article; continue? ") 4338 Deleting parts may malfunction or destroy the article; continue? ")
4323 (let* ((data (get-text-property (point) 'gnus-data)) 4339 (let* ((data (get-text-property (point) 'gnus-data))
4324 (handles gnus-article-mime-handles) 4340 (handles gnus-article-mime-handles)
4325 (none "(none)") 4341 (none "(none)")
4326 (description 4342 (description
4327 (or 4343 (mail-decode-encoded-word-string (or (mm-handle-description data)
4328 (mail-decode-encoded-word-string (or (mm-handle-description data) 4344 none)))
4329 none))))
4330 (filename 4345 (filename
4331 (or (mail-content-type-get (mm-handle-disposition data) 'filename) 4346 (or (mail-content-type-get (mm-handle-disposition data) 'filename)
4332 none)) 4347 none))
4333 (type (mm-handle-media-type data))) 4348 (type (mm-handle-media-type data)))
4334 (unless data 4349 (unless data