comparison lisp/mh-e/mh-mime.el @ 56787:25da1d331c99

Upgraded to MH-E version 7.82. See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author Bill Wohler <wohler@newt.com>
date Wed, 25 Aug 2004 05:55:39 +0000
parents 72a02133177e
children 78e08044a734 d8411455de48
comparison
equal deleted inserted replaced
56786:1a0bf37e6b8c 56787:25da1d331c99
580 '(("attachment")("inline")) 580 '(("attachment")("inline"))
581 nil t nil nil 581 nil t nil nil
582 "attachment")))) 582 "attachment"))))
583 (mml-insert-empty-tag 'part 'type type 'filename file 583 (mml-insert-empty-tag 'part 'type type 'filename file
584 'disposition dispos 'description description))) 584 'disposition dispos 'description description)))
585
586 (defvar mh-identity-pgg-default-user-id)
585 587
586 (defun mh-secure-message (method mode &optional identity) 588 (defun mh-secure-message (method mode &optional identity)
587 "Add directive to Encrypt/Sign an entire message. 589 "Add directive to Encrypt/Sign an entire message.
588 METHOD should be one of: \"pgpmime\", \"pgp\", \"smime\". 590 METHOD should be one of: \"pgpmime\", \"pgp\", \"smime\".
589 MODE should be one of: \"sign\", \"encrypt\", \"signencrypt\", \"none\". 591 MODE should be one of: \"sign\", \"encrypt\", \"signencrypt\", \"none\".
850 (car ct)))))) 852 (car ct))))))
851 853
852 ;;;###mh-autoload 854 ;;;###mh-autoload
853 (defun mh-toggle-mh-decode-mime-flag () 855 (defun mh-toggle-mh-decode-mime-flag ()
854 "Toggle whether MH-E should decode MIME or not." 856 "Toggle whether MH-E should decode MIME or not."
855 (interactive) 857 (interactive)
856 (setq mh-decode-mime-flag (not mh-decode-mime-flag)) 858 (setq mh-decode-mime-flag (not mh-decode-mime-flag))
857 (mh-show nil t) 859 (mh-show nil t)
858 (message (format "(setq mh-decode-mime-flag %s)" mh-decode-mime-flag))) 860 (message (format "(setq mh-decode-mime-flag %s)" mh-decode-mime-flag)))
859 861
860 ;;;###mh-autoload 862 ;;;###mh-autoload