/[emacs]/emacs/lisp/gnus/mm-view.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-view.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by miles, Fri Sep 9 01:47:33 2005 UTC revision 1.18 by rfrancoise, Sat Sep 24 13:46:19 2005 UTC
# Line 576  Line 576 
576         (cadar smime-keys)         (cadar smime-keys)
577       (smime-get-key-by-email       (smime-get-key-by-email
578        (gnus-completing-read-maybe-default        (gnus-completing-read-maybe-default
579         (concat "Decipher using which key? "         (concat "Decipher using key"
580                 (if smime-keys (concat "(default " (caar smime-keys) ") ")                 (if smime-keys
581                   ""))                     (concat " (default " (caar smime-keys) "): ")
582                     ": "))
583         smime-keys nil nil nil nil (car-safe (car-safe smime-keys))))))         smime-keys nil nil nil nil (car-safe (car-safe smime-keys))))))
584    (goto-char (point-min))    (goto-char (point-min))
585    (while (search-forward "\r\n" nil t)    (while (search-forward "\r\n" nil t)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26