lisp/mh-e/mh-mime.el

48 (require 'mh-gnus)                      ;needed because mh-gnus.el not compiled
51 (require 'gnus-util)
57 (autoload 'article-emphasize "gnus-art")
58 (autoload 'gnus-eval-format "gnus-spec")
185 ;; Copied from gnus-art.el (should be checked for other cool things that can
253 by calling the Emacs function `mailcap-mime-info'. This function
273          (flet ((mm-handle-set-external-undisplayer (handle function)
274                   (mh-handle-set-external-undisplayer folder handle function)))
379 components, since this function calls on \"mhstore\" (\"mhn\") to
453 The function decodes the message and displays it. It avoids
487         (when (eq mh-highlight-citation-style 'gnus)
488           (mh-gnus-article-highlight-citation))
522             (handle function)
523             (mh-handle-set-external-undisplayer folder handle function)))
582                                           (gnus-strip-whitespace cte))))
738                   (when (eq mh-highlight-citation-style 'gnus)
739                     (mh-gnus-article-highlight-citation))
808 The optional argument, HANDLE is a MIME handle if the function is
856     (if (string-match ".*/" name) (setq name (substring name (match-end 0))))
863     (gnus-eval-format
865      `(,@(mh-gnus-local-map-property mh-mime-button-map)
881 (defvar mm-verify-function-alist)       ; < Emacs 22
882 (defvar mm-decrypt-function-alist)      ; < Emacs 22
888          (crypto-type (or (nth 2 (assoc protocol mm-verify-function-alist))
889                           (nth 2 (assoc protocol mm-decrypt-function-alist))
895          (info (or (mh-mm-handle-multipart-ctl-parameter handle 'gnus-info)
897          (details (mh-mm-handle-multipart-ctl-parameter handle 'gnus-details))
904     (gnus-eval-format
907      `(,@(mh-gnus-local-map-property mh-mime-security-button-map)
986 If CRITERION is a function or a symbol which has a function binding
987 then that function must return non-nil at the button we stop."
1041         (function (get-text-property (point) 'mh-callback))
1045             (handle function)
1046             (mh-handle-set-external-undisplayer folder handle function)))
1047       (when (and function (eolp))
1049       (unwind-protect (and function (funcall function data))
1056 part is displayed. This function is called when the mouse is used
1063           (function (get-text-property (point) 'mh-callback)))
1066         (and function (funcall function data))))))
1068 (defun mh-handle-set-external-undisplayer (folder handle function)
1077         (mm-handle-set-undisplayer new-handle function)
1082     (mm-handle-set-undisplayer handle function)))
1086   (if (mh-mm-handle-multipart-ctl-parameter handle 'gnus-info)
1108   (let ((details (mh-mm-handle-multipart-ctl-parameter handle 'gnus-details)))
1160     (flet ((article-goto-body ()))      ; shadow this function to do nothing
1224 The function will prompt the user for a DESCRIPTION, a FOLDER and
1234                                         mh-user-path (substring folder 1) msg)
1237                                       mh-user-path (substring folder 1) msg)
1507 This function will quote all such characters."
1685         (let ((s (buffer-substring-no-properties
1781   "Cached value of function `mh-have-file-command'.