lisp/mh-e/mh-gnus.el

36 (mh-require 'mm-bodies nil t)
37 (mh-require 'mm-decode nil t)
38 (mh-require 'mm-view nil t)
43   "Return a list suitable for a text property list specifying keymap MAP."
48 ;; Copy of function from mm-decode.el.
49 (defun-mh mh-mm-merge-handles mm-merge-handles (handles1 handles2)
53 ;; Copy of function from mm-decode.el.
54 (defun-mh mh-mm-set-handle-multipart-parameter
55   mm-set-handle-multipart-parameter (handle parameter value)
58       (put-text-property 0 (length (car handle)) parameter value
61 ;; Copy of function from mm-view.el.
62 (defun-mh mh-mm-inline-text-vcard mm-inline-text-vcard (handle)
64     (mm-insert-inline
69                    (vcard-pretty-print (mm-get-part handle))
71                   (vcard-parse-string (mm-get-part handle)
74 ;; Function from mm-decode.el used in PGP messages. Just define it with older
76 (defun-mh mh-mm-possibly-verify-or-decrypt
77   mm-possibly-verify-or-decrypt (parts ctl)
80 ;; Copy of macro in mm-decode.el.
81 (defmacro-mh mh-mm-handle-multipart-ctl-parameter
82   mm-handle-multipart-ctl-parameter (handle parameter)
83   `(get-text-property 0 ,parameter (car ,handle)))
85 ;; Copy of function in mm-decode.el.
86 (defun-mh mh-mm-readable-p mm-readable-p (handle)
88   (and (< (with-current-buffer (mm-handle-buffer handle)
90        (mm-with-unibyte-buffer
91          (mm-insert-part handle)
92          (and (eq (mm-body-7-or-8) '7bit)
93               (not (mh-mm-long-lines-p 76))))))
95 ;; Copy of function in mm-bodies.el.
96 (defun-mh mh-mm-long-lines-p mm-long-lines-p (length)
108 (defun-mh mh-mm-keep-viewer-alive-p mm-keep-viewer-alive-p (handle)
110   ;; MIME parts. So this will always return nil.
113 (defun-mh mh-mm-destroy-parts mm-destroy-parts (list)
117 (defun-mh mh-mm-uu-dissect-text-parts mm-uu-dissect-text-parts (handles)
125                         (if (and (string-match "\\`text/" type)
126                                  (not (string-match "\\`text/rtf\\'" type)))
137 ;; This is mm-save-part from Gnus 5.10 since that function in emacs21.2 is
140 ;; function and rename calls to mh-mm-save-part to mm-save-part.
141 (defun mh-mm-save-part (handle)
143   (let ((name (mail-content-type-get (mm-handle-type handle) 'name))
145                    (mm-handle-disposition handle) 'filename))
150                                (or mm-default-directory
153     (setq mm-default-directory (file-name-directory file))
157          (mm-save-part-to-file handle file))))
159 (defun mh-mm-text-html-renderer ()
160   "Find the renderer Gnus is using to display text/html MIME parts."
161   (or (and (boundp 'mm-inline-text-html-renderer) mm-inline-text-html-renderer)
162       (and (boundp 'mm-text-html-renderer) mm-text-html-renderer)))