Function: mml-signencrypt-style

mml-signencrypt-style is a byte-compiled function defined in mml-sec.el.gz.

Signature

(mml-signencrypt-style METHOD &optional STYLE)

Documentation

Function for setting/getting the signencrypt-style used.

Takes two arguments, the method (e.g. "pgp") and optionally the mode
(e.g. combined). If the mode is omitted, the current value is
returned.

For example, if you prefer to use combined sign & encrypt with smime, putting the following in your Gnus startup file will enable that behavior:

(mml-set-signencrypt-style "smime" combined)

You can also customize or set mml-signencrypt-style-alist instead.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml-sec.el.gz
;;; Configuration/helper functions

(defun mml-signencrypt-style (method &optional style)
  "Function for setting/getting the signencrypt-style used.
Takes two arguments, the method (e.g. \"pgp\") and optionally the mode
\(e.g. combined).  If the mode is omitted, the current value is
returned.

For example, if you prefer to use combined sign & encrypt with
smime, putting the following in your Gnus startup file will
enable that behavior:

\(mml-set-signencrypt-style \"smime\" combined)

You can also customize or set `mml-signencrypt-style-alist' instead."
  (let ((style-item (assoc method mml-signencrypt-style-alist)))
    (if style-item
	(if (or (eq style 'separate)
		(eq style 'combined))
	    ;; valid style setting?
	    (setf (cadr style-item) style)
	  ;; otherwise, just return the current value
	  (cadr style-item))
      (message "Warning, attempt to set invalid signencrypt style"))))