*** empty log message ***

[gnus] / lisp / gnus-kill.el

diff --git a/lisp/gnus-kill.el b/lisp/gnus-kill.el
index b1da149..4a48d47 100644 (file)
--- a/lisp/gnus-kill.el
+++ b/lisp/gnus-kill.el
@@ -410,7 +410,9 @@ Returns the number of articles marked as read."
          (progn
            (delete-region beg (point))
            (insert (or (eval form) "")))
-       (condition-case () (eval form) (error nil))))
+       (save-excursion
+         (set-buffer gnus-summary-buffer)
+         (condition-case () (eval form) (error nil)))))
     (and (buffer-modified-p) (save-buffer))))
 
 ;; Parse an rn killfile.