diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-09-24 13:46:20 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-09-24 13:46:20 +0000 |
| commit | 81df110a292f64172818df0ce94579a5429563e4 (patch) | |
| tree | d915c0420de83f070c02926f691b98e96fdd486b /lisp/gnus/smime.el | |
| parent | d88a70a010ef76c08f37497b551a4fc620059096 (diff) | |
| download | emacs-81df110a292f64172818df0ce94579a5429563e4.tar.gz emacs-81df110a292f64172818df0ce94579a5429563e4.tar.bz2 emacs-81df110a292f64172818df0ce94579a5429563e4.zip | |
2005-09-24 Emilio C. Lopes <eclig@gmx.net>
* smime.el (smime-sign-buffer, smime-decrypt-buffer):
* mm-view.el (mm-view-pkcs7-decrypt):
* gnus-sum.el (gnus-summary-limit-to-extra)
(gnus-summary-respool-article, gnus-read-move-group-name):
* gnus-score.el (gnus-summary-increase-score):
* gnus-util.el (gnus-completing-read-with-default):
* gnus-art.el (gnus-read-save-file-name)
(gnus-summary-save-in-rmail, gnus-summary-save-in-mail)
(gnus-summary-save-in-file, gnus-summary-save-body-in-file):
* message.el (message-check-news-header-syntax):
Follow convention for reading with the minibuffer.
Diffstat (limited to 'lisp/gnus/smime.el')
| -rw-r--r-- | lisp/gnus/smime.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/gnus/smime.el b/lisp/gnus/smime.el index 485cf177154..22489affa89 100644 --- a/lisp/gnus/smime.el +++ b/lisp/gnus/smime.el @@ -341,9 +341,10 @@ KEYFILE should contain a PEM encoded key and certificate." keyfile (smime-get-key-with-certs-by-email (completing-read - (concat "Sign using which key? " - (if smime-keys (concat "(default " (caar smime-keys) ") ") - "")) + (concat "Sign using key" + (if smime-keys + (concat " (default " (caar smime-keys) "): ") + ": ")) smime-keys nil nil (car-safe (car-safe smime-keys)))))) (error "Signing failed")))) @@ -472,9 +473,9 @@ in the buffer specified by `smime-details-buffer'." (or keyfile (smime-get-key-by-email (completing-read - (concat "Decipher using which key? " - (if smime-keys (concat "(default " (caar smime-keys) ") ") - "")) + (concat "Decipher using key" + (if smime-keys (concat " (default " (caar smime-keys) "): ") + ": ")) smime-keys nil nil (car-safe (car-safe smime-keys))))))))) ;; Various operations |