Mercurial > hg > xemacs-beta

diff lisp/mailcrypt/mc-toplev.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
line wrap: on
line diff
--- a/lisp/mailcrypt/mc-toplev.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/mailcrypt/mc-toplev.el	Mon Aug 13 08:46:35 2007 +0200
@@ -550,7 +550,8 @@
 (defun mc-gnus-verify-signature ()
   (interactive)
   (gnus-summary-select-article)
-  (gnus-eval-in-buffer-window gnus-article-buffer
+  (save-excursion
+    (set-buffer gnus-original-article-buffer)
     (save-restriction (widen) (mc-verify-signature))))
 
 ;;;###autoload