comparison lisp/gnus/gnus-score.el @ 65682:c16795de963a

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.
author Romain Francoise <romain@orebokech.com>
date Sat, 24 Sep 2005 13:46:20 +0000
parents fafd692d1e40
children 9082bf778ad8 ee12d75eb214
comparison
equal deleted inserted replaced
65681:4312387e37c8 65682:c16795de963a
650 (and gnus-extra-headers 650 (and gnus-extra-headers
651 (equal (nth 1 entry) "extra") 651 (equal (nth 1 entry) "extra")
652 (intern ; need symbol 652 (intern ; need symbol
653 (gnus-completing-read-with-default 653 (gnus-completing-read-with-default
654 (symbol-name (car gnus-extra-headers)) ; default response 654 (symbol-name (car gnus-extra-headers)) ; default response
655 "Score extra header:" ; prompt 655 "Score extra header" ; prompt
656 (mapcar (lambda (x) ; completion list 656 (mapcar (lambda (x) ; completion list
657 (cons (symbol-name x) x)) 657 (cons (symbol-name x) x))
658 gnus-extra-headers) 658 gnus-extra-headers)
659 nil ; no completion limit 659 nil ; no completion limit
660 t)))) ; require match 660 t)))) ; require match