Mercurial > emacs
changeset 94343:6b96687ffb49
(smime-sign-region, smime-encrypt-region, smime-decrypt-region):
Remove redundant calls to `generate-new-buffer-name'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 25 Apr 2008 09:41:17 +0000 |
| parents | 7dc4ce2a7fd1 |
| children | 2005e38cd431 |
| files | lisp/gnus/smime.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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