Mercurial > emacs
comparison lisp/gnus/gnus-art.el @ 72653:87c011891481
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) |