Mercurial > emacs

comparison lisp/gnus/gnus-art.el @ 72653:87c011891481

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 131-133) - Update from CVS 2006-09-05 Daiki Ueno <ueno@unixuser.org> * lisp/pgg.el (pgg-clear-string): Alias to clear-string for backward compatibility. * lisp/pgg-gpg.el (pgg-gpg-process-region): Avoid display blinking with inhibit-redisplay; encode passphrase with locale-coding-system. 2006-09-04 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-art.el (article-decode-encoded-words): Make it fast. 2006-09-04 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gnus-art.el (article-decode-encoded-words): Don't infloop in XEmacs. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-424
author Miles Bader <miles@gnu.org>
date Tue, 05 Sep 2006 08:17:35 +0000
parents de654a6735da
children afe113527b71 84dd84b43e1b
comparison
equal deleted inserted replaced
72652:78baf6b1169a 72653:87c011891481
2379 (save-excursion (condition-case nil 2379 (save-excursion (condition-case nil
2380 (set-buffer gnus-summary-buffer) 2380 (set-buffer gnus-summary-buffer)
2381 (error)) 2381 (error))
2382 gnus-newsgroup-ignored-charsets)) 2382 gnus-newsgroup-ignored-charsets))
2383 (inhibit-read-only t) 2383 (inhibit-read-only t)
2384 start) 2384 end start)
2385 (save-restriction 2385 (goto-char (point-min))
2386 (article-narrow-to-head) 2386 (when (search-forward "\n\n" nil 'move)
2387 (while (not (eobp)) 2387 (forward-line -1))
2388 (setq start (point)) 2388 (setq end (point))
2389 (if (prog1 2389 (while (not (bobp))
2390 (looking-at "\ 2390 (while (progn
2391 (forward-line -1)
2392 (and (not (bobp))
2393 (memq (char-after) '(?\t ? )))))
2394 (setq start (point))
2395 (if (looking-at "\
2391 \\(?:Resent-\\)?\\(?:From\\|Cc\\|To\\|Bcc\\|\\(?:In-\\)?Reply-To\\|Sender\ 2396 \\(?:Resent-\\)?\\(?:From\\|Cc\\|To\\|Bcc\\|\\(?:In-\\)?Reply-To\\|Sender\
2392 \\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\):") 2397 \\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\):")
2393 (while (progn 2398 (funcall gnus-decode-address-function start end)
2394 (forward-line) 2399 (funcall gnus-decode-header-function start end))
2395 (if (eobp) 2400 (goto-char (setq end start)))))
2396 nil
2397 (memq (char-after) '(?\t ? ))))))
2398 (funcall gnus-decode-address-function start (point))
2399 (funcall gnus-decode-header-function start (point)))))))
2400 2401
2401 (defun article-decode-group-name () 2402 (defun article-decode-group-name ()
2402 "Decode group names in `Newsgroups:'." 2403 "Decode group names in `Newsgroups:'."
2403 (let ((inhibit-point-motion-hooks t) 2404 (let ((inhibit-point-motion-hooks t)
2404 (inhibit-read-only t) 2405 (inhibit-read-only t)