projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
97a4045
)
Synch to No Gnus 200401230204.
author
yamaoka
<yamaoka>
Fri, 23 Jan 2004 02:09:30 +0000
(
02:09
+0000)
committer
yamaoka
<yamaoka>
Fri, 23 Jan 2004 02:09:30 +0000
(
02:09
+0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/spam-stat.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
73fbacf
..
e9255e7
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,5
+1,10
@@
2004-01-23 Jesper Harder <harder@ifa.au.dk>
2004-01-23 Jesper Harder <harder@ifa.au.dk>
+ * spam-stat.el (spam-stat-store-gnus-article-buffer): Use
+ with-current-buffer.
+ (spam-stat-store-current-buffer): Use insert-buffer-substring to
+ avoid consing a string.
+
* mm-util.el (mm-charset-synonym-alist): Add ks_c_5601-1987.
Remove obsolete entries for big5 and gb2312.
* mm-util.el (mm-charset-synonym-alist): Add ks_c_5601-1987.
Remove obsolete entries for big5 and gb2312.
diff --git
a/lisp/spam-stat.el
b/lisp/spam-stat.el
index
b7b7cd2
..
9d43ef8
100644
(file)
--- a/
lisp/spam-stat.el
+++ b/
lisp/spam-stat.el
@@
-198,18
+198,16
@@
This is set by hooking into Gnus.")
(defun spam-stat-store-current-buffer ()
"Store a copy of the current buffer in `spam-stat-buffer'."
(defun spam-stat-store-current-buffer ()
"Store a copy of the current buffer in `spam-stat-buffer'."
- (save-excursion
- (let ((str (buffer-string)))
- (set-buffer (get-buffer-create spam-stat-buffer-name))
+ (let ((buf (current-buffer)))
+ (with-current-buffer (get-buffer-create spam-stat-buffer-name)
(erase-buffer)
(erase-buffer)
- (insert str)
+ (insert-buffer-substring buf)
(setq spam-stat-buffer (current-buffer)))))
(defun spam-stat-store-gnus-article-buffer ()
"Store a copy of the current article in `spam-stat-buffer'.
This uses `gnus-article-buffer'."
(setq spam-stat-buffer (current-buffer)))))
(defun spam-stat-store-gnus-article-buffer ()
"Store a copy of the current article in `spam-stat-buffer'.
This uses `gnus-article-buffer'."
- (save-excursion
- (set-buffer gnus-original-article-buffer)
+ (with-current-buffer gnus-original-article-buffer
(spam-stat-store-current-buffer)))
;; Data -- not using defstruct in order to save space and time
(spam-stat-store-current-buffer)))
;; Data -- not using defstruct in order to save space and time