mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

(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.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-04 15:24:35 +00:00 committed by Katsumi Yamaoka
parent 6e6b8e25b1
commit c25d60ab3b
4 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View File

@ -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>

16
lisp/gnus/gnus-agent.el
View File

@ -2108,13 +2108,15 @@ doesn't exist, to valid the overview buffer."
(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."

3
lisp/gnus/gnus-art.el
View File

@ -7949,7 +7949,8 @@ url is put as the `gnus-button-url' overlay property on the button."
(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:

2
lisp/gnus/gnus-html.el
View File

@ -112,7 +112,7 @@ fit these criteria."
(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)