583 |
(mml-insert-empty-tag 'part 'type type 'filename file |
(mml-insert-empty-tag 'part 'type type 'filename file |
584 |
'disposition dispos 'description description))) |
'disposition dispos 'description description))) |
585 |
|
|
586 |
|
(defvar mh-identity-pgg-default-user-id) |
587 |
|
|
588 |
(defun mh-secure-message (method mode &optional identity) |
(defun mh-secure-message (method mode &optional identity) |
589 |
"Add directive to Encrypt/Sign an entire message. |
"Add directive to Encrypt/Sign an entire message. |
590 |
METHOD should be one of: \"pgpmime\", \"pgp\", \"smime\". |
METHOD should be one of: \"pgpmime\", \"pgp\", \"smime\". |
852 |
(car ct)))))) |
(car ct)))))) |
853 |
|
|
854 |
;;;###mh-autoload |
;;;###mh-autoload |
855 |
|
(defun mh-toggle-mh-decode-mime-flag () |
856 |
|
"Toggle whether MH-E should decode MIME or not." |
857 |
|
(interactive) |
858 |
|
(setq mh-decode-mime-flag (not mh-decode-mime-flag)) |
859 |
|
(mh-show nil t) |
860 |
|
(message (format "(setq mh-decode-mime-flag %s)" mh-decode-mime-flag))) |
861 |
|
|
862 |
|
;;;###mh-autoload |
863 |
(defun mh-decode-message-header () |
(defun mh-decode-message-header () |
864 |
"Decode RFC2047 encoded message header fields." |
"Decode RFC2047 encoded message header fields." |
865 |
(when mh-decode-mime-flag |
(when mh-decode-mime-flag |