:type 'integer)
(defcustom mml2015-signers nil
- "A list of your own key ID which will be used to sign a message."
+ "A list of your own key ID which will be used to sign a message.
+If set, it overrides the setting of `mml2015-sign-with-sender'."
:group 'mime-security
:type '(repeat (string :tag "Key ID")))
(let* ((inhibit-redisplay t)
(context (epg-make-context))
(boundary (mml-compute-boundary cont))
- (sender (when mml2015-sign-with-sender
- message-options-get 'message-sender))
+ (sender (message-options-get 'message-sender))
+ (signer-names (or mml2015-signers
+ (if (and mml2015-sign-with-sender sender)
+ (list (concat "<" sender ">")))))
signer-key
(signers
(or (message-options-get 'mml2015-epg-signers)
(epa-select-keys context "\
Select keys for signing.
If no one is selected, default secret key is used. "
- (if sender
- (cons (concat "<" sender ">")
- mml2015-signers)
- mml2015-signers)
+ signer-names
t)
(if (or sender mml2015-signers)
(delq nil
signer)))
(error "No secret key for %s" signer))
signer-key)
- (if sender
- (cons (concat "<" sender ">")
- mml2015-signers)
- mml2015-signers))))))))
+ signer-names)))))))
signature micalg)
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
(goto-char (point-max))))
(defun mml2015-epg-encrypt (cont &optional sign)
- (let ((inhibit-redisplay t)
- (context (epg-make-context))
- (config (epg-configuration))
- (sender (when mml2015-sign-with-sender
- (message-options-get 'message-sender)))
- (recipients (message-options-get 'mml2015-epg-recipients))
- cipher signers
- (boundary (mml-compute-boundary cont))
- recipient-key signer-key)
+ (let* ((inhibit-redisplay t)
+ (context (epg-make-context))
+ (boundary (mml-compute-boundary cont))
+ (config (epg-configuration))
+ (recipients (message-options-get 'mml2015-epg-recipients))
+ cipher
+ (sender (message-options-get 'message-sender))
+ (signer-names (or mml2015-signers
+ (if (and mml2015-sign-with-sender sender)
+ (list (concat "<" sender ">")))))
+ signers
+ recipient-key signer-key)
(unless recipients
(setq recipients
(apply #'nconc
(read-string "Recipients: ")))
"[ \f\t\n\r\v,]+"))))
(when mml2015-encrypt-to-self
- (unless (or sender mml2015-signers)
- (error "Message sender and mml2015-signers not set"))
- (setq recipients (nconc recipients (if sender
- (cons (concat "<" sender ">")
- mml2015-signers)
- mml2015-signers))))
+ (unless signer-names
+ (error "Neither message sender nor mml2015-signers are set"))
+ (setq recipients (nconc recipients signer-names)))
(if (eq mm-encrypt-option 'guided)
(setq recipients
(epa-select-keys context "\
(epa-select-keys context "\
Select keys for signing.
If no one is selected, default secret key is used. "
- (if sender
- (cons (concat "<" sender ">")
- mml2015-signers)
- mml2015-signers)
+ signer-names
t)
(if (or sender mml2015-signers)
(delq nil
signer)))
(error "No secret key for %s" signer))
signer-key)
- (if sender
- (cons (concat "<" sender ">") mml2015-signers)
- mml2015-signers))))))))
+ signer-names)))))))
(epg-context-set-signers context signers))
(epg-context-set-armor context t)
(epg-context-set-textmode context t)
An advantage of using Gnus to read mail is that it converts simple bugs
into wonderful absurdities.
-If you want to have this line updated continually, you can put
+This line is updated continually by default. If you wish to switch
+that off, say:
+@vindex gnus-article-update-lapsed-header
@lisp
-(gnus-start-date-timer)
+(setq gnus-article-update-lapsed-header nil)
@end lisp
-in your @file{~/.gnus.el} file, or you can run it off of some hook. If
-you want to stop the timer, you can use the @code{gnus-stop-date-timer}
-command.
+in your @file{~/.gnus.el} file. If you want to stop the updating
+dynamically, you can use the @code{gnus-stop-date-timer} command.
@item W T o
@kindex W T o (Summary)