Throughout all files, replace (save-excursion (set-buffer ...)) with (with-current...

[gnus] / lisp / smime.el

diff --git a/lisp/smime.el b/lisp/smime.el
index d836f32..a266819 100644 (file)
--- a/lisp/smime.el
+++ b/lisp/smime.el
@@ -708,8 +708,7 @@ The following commands are available:
   "Go to the SMIME buffer."
   (interactive)
   (unless (get-buffer smime-buffer)
-    (save-excursion
-      (set-buffer (get-buffer-create smime-buffer))
+    (with-current-buffer (get-buffer-create smime-buffer)
       (smime-mode)))
   (smime-draw-buffer)
   (switch-to-buffer smime-buffer))