Mercurial > emacs
changeset 110178:0d6f1624cdf7
(gnus-article-copy-string): Say what data we copied; (gnus-html-wash-tags): Remove even more white space around <pre_int>; (gnus-agent-load-alist): Check whether the agentview files exist before trying to read them.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sat, 04 Sep 2010 15:24:35 +0000 |
| parents | 6d74afef6e68 |
| children | b801b7109176 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-agent.el lisp/gnus/gnus-art.el lisp/gnus/gnus-html.el |
| diffstat | 4 files changed, 20 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sat Sep 04 18:16:08 2010 +0300 +++ b/lisp/gnus/ChangeLog Sat Sep 04 15:24:35 2010 +0000 @@ -1,5 +1,13 @@ 2010-09-04 Lars Magne Ingebrigtsen <larsi@gnus.org> + * gnus-agent.el (gnus-agent-load-alist): Check whether the agentview + files exist before trying to read them. + + * gnus-html.el (gnus-html-wash-tags): Remove even more white space + around <pre_int>. + + * gnus-art.el (gnus-article-copy-string): Say what data we copied. + * nnmh.el (nnmh-request-list-1): Optimize for speed. 2010-09-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
--- a/lisp/gnus/gnus-agent.el Sat Sep 04 18:16:08 2010 +0300 +++ b/lisp/gnus/gnus-agent.el Sat Sep 04 15:24:35 2010 +0000 @@ -2108,13 +2108,15 @@ (defun gnus-agent-load-alist (group) "Load the article-state alist for GROUP." ;; Bind free variable that's used in `gnus-agent-read-agentview'. - (let ((gnus-agent-read-agentview group) - (file-name-coding-system nnmail-pathname-coding-system)) - (setq gnus-agent-article-alist - (gnus-cache-file-contents - (gnus-agent-article-name ".agentview" group) - 'gnus-agent-file-loading-cache - 'gnus-agent-read-agentview)))) + (let* ((gnus-agent-read-agentview group) + (file-name-coding-system nnmail-pathname-coding-system) + (agentview (gnus-agent-article-name ".agentview" group))) + (when (file-exists-p agentview) + (setq gnus-agent-article-alist + (gnus-cache-file-contents + agentview + 'gnus-agent-file-loading-cache + 'gnus-agent-read-agentview))))) (defun gnus-agent-read-agentview (file) "Load FILE and do a `read' there."
--- a/lisp/gnus/gnus-art.el Sat Sep 04 18:16:08 2010 +0300 +++ b/lisp/gnus/gnus-art.el Sat Sep 04 15:24:35 2010 +0000 @@ -7949,7 +7949,8 @@ (when data (with-temp-buffer (insert data) - (copy-region-as-kill (point-min) (point-max)))))) + (copy-region-as-kill (point-min) (point-max)) + (message "Copied %s" data))))) ;;; Internal functions:
--- a/lisp/gnus/gnus-html.el Sat Sep 04 18:16:08 2010 +0300 +++ b/lisp/gnus/gnus-html.el Sat Sep 04 15:24:35 2010 +0000 @@ -112,7 +112,7 @@ (defun gnus-html-wash-tags () (let (tag parameters string start end images url) (goto-char (point-min)) - (while (re-search-forward " *<pre_int> *</pre_int>\n" nil t) + (while (re-search-forward " *<pre_int> *</pre_int> *\n" nil t) (replace-match "" t t)) (goto-char (point-min)) (while (re-search-forward "<\\([^ />]+\\)\\([^>]*\\)>" nil t)