[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101329: (gnus-article-copy-string):
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101329: (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. |
Date: |
Sat, 04 Sep 2010 15:24:35 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101329
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2010-09-04 15:24:35 +0000
message:
(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.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-agent.el
lisp/gnus/gnus-art.el
lisp/gnus/gnus-html.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-04 00:45:13 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-04 15:24:35 +0000
@@ -1,5 +1,13 @@
2010-09-04 Lars Magne Ingebrigtsen <address@hidden>
+ * 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 <address@hidden>
=== modified file 'lisp/gnus/gnus-agent.el'
--- a/lisp/gnus/gnus-agent.el 2010-09-04 00:21:34 +0000
+++ b/lisp/gnus/gnus-agent.el 2010-09-04 15:24:35 +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."
=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el 2010-09-04 00:21:34 +0000
+++ b/lisp/gnus/gnus-art.el 2010-09-04 15:24:35 +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:
=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el 2010-09-04 00:50:02 +0000
+++ b/lisp/gnus/gnus-html.el 2010-09-04 15:24:35 +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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101329: (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.,
Katsumi Yamaoka <=