# HG changeset patch # User Juanma Barranquero # Date 1209116477 0 # Node ID 6b96687ffb49b7da31c8d41db013a7f891520408 # Parent 7dc4ce2a7fd1605d9d9667e66839f28e7b441162 (smime-sign-region, smime-encrypt-region, smime-decrypt-region): Remove redundant calls to `generate-new-buffer-name'. diff -r 7dc4ce2a7fd1 -r 6b96687ffb49 lisp/gnus/smime.el --- a/lisp/gnus/smime.el Fri Apr 25 09:03:19 2008 +0000 +++ b/lisp/gnus/smime.el Fri Apr 25 09:41:17 2008 +0000 @@ -305,7 +305,7 @@ (smime-new-details-buffer) (let* ((certfiles (and (cdr-safe keyfile) (cadr keyfile))) (keyfile (or (car-safe keyfile) keyfile)) - (buffer (generate-new-buffer (generate-new-buffer-name " *smime*"))) + (buffer (generate-new-buffer " *smime*")) (passphrase (smime-ask-passphrase (expand-file-name keyfile))) (tmpfile (smime-make-temp-file "smime"))) (if passphrase @@ -340,7 +340,7 @@ have proper MIME tags. CERTFILES is a list of filenames, each file is expected to contain of a PEM encoded certificate." (smime-new-details-buffer) - (let ((buffer (generate-new-buffer (generate-new-buffer-name " *smime*"))) + (let ((buffer (generate-new-buffer " *smime*")) (tmpfile (smime-make-temp-file "smime"))) (prog1 (when (prog1 @@ -439,7 +439,7 @@ Any details (stderr on success, stdout and stderr on error) are left in the buffer specified by `smime-details-buffer'." (smime-new-details-buffer) - (let ((buffer (generate-new-buffer (generate-new-buffer-name " *smime*"))) + (let ((buffer (generate-new-buffer " *smime*")) CAs (passphrase (smime-ask-passphrase (expand-file-name keyfile))) (tmpfile (smime-make-temp-file "smime"))) (if passphrase