1 |
;;; mh-gnus.el --- Make MH-E compatible with installed version of Gnus. |
;;; mh-gnus.el --- Make MH-E compatible with installed version of Gnus. |
2 |
|
|
3 |
;; Copyright (C) 2003 Free Software Foundation, Inc. |
;; Copyright (C) 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Satyaki Das <satyaki@theforce.stanford.edu> |
;; Author: Satyaki Das <satyaki@theforce.stanford.edu> |
6 |
;; Maintainer: Bill Wohler <wohler@newt.com> |
;; Maintainer: Bill Wohler <wohler@newt.com> |
34 |
(load "mm-uu" t t) ; Non-fatal dependency |
(load "mm-uu" t t) ; Non-fatal dependency |
35 |
(load "mailcap" t t) ; Non-fatal dependency |
(load "mailcap" t t) ; Non-fatal dependency |
36 |
(load "smiley" t t) ; Non-fatal dependency |
(load "smiley" t t) ; Non-fatal dependency |
37 |
|
(load "mailabbrev" t t) |
38 |
|
|
39 |
(defmacro mh-defun-compat (function arg-list &rest body) |
(defmacro mh-defun-compat (function arg-list &rest body) |
40 |
"This is a macro to define functions which are not defined. |
"This is a macro to define functions which are not defined. |
75 |
(put-text-property 0 (length (car handle)) parameter value |
(put-text-property 0 (length (car handle)) parameter value |
76 |
(car handle)))) |
(car handle)))) |
77 |
|
|
78 |
|
;; Copy of function from mm-view.el |
79 |
|
(mh-defun-compat mm-inline-text-vcard (handle) |
80 |
|
(let (buffer-read-only) |
81 |
|
(mm-insert-inline |
82 |
|
handle |
83 |
|
(concat "\n-- \n" |
84 |
|
(ignore-errors |
85 |
|
(if (fboundp 'vcard-pretty-print) |
86 |
|
(vcard-pretty-print (mm-get-part handle)) |
87 |
|
(vcard-format-string |
88 |
|
(vcard-parse-string (mm-get-part handle) |
89 |
|
'vcard-standard-filter)))))))) |
90 |
|
|
91 |
|
;; Function from mm-decode.el used in PGP messages. Just define it with older |
92 |
|
;; gnus to avoid compiler warning. |
93 |
|
(mh-defun-compat mm-possibly-verify-or-decrypt (parts ctl) |
94 |
|
nil) |
95 |
|
|
96 |
;; Copy of original macro is in mm-decode.el |
;; Copy of original macro is in mm-decode.el |
97 |
(mh-defmacro-compat mm-handle-multipart-ctl-parameter (handle parameter) |
(mh-defmacro-compat mm-handle-multipart-ctl-parameter (handle parameter) |
98 |
`(get-text-property 0 ,parameter (car ,handle))) |
`(get-text-property 0 ,parameter (car ,handle))) |
99 |
|
|
|
(mh-do-in-xemacs (defvar default-enable-multibyte-characters)) |
|
|
|
|
100 |
;; Copy of original function in mm-decode.el |
;; Copy of original function in mm-decode.el |
101 |
(mh-defun-compat mm-readable-p (handle) |
(mh-defun-compat mm-readable-p (handle) |
102 |
"Say whether the content of HANDLE is readable." |
"Say whether the content of HANDLE is readable." |
151 |
file))) |
file))) |
152 |
(mm-save-part-to-file handle file)))) |
(mm-save-part-to-file handle file)))) |
153 |
|
|
154 |
|
(defun mh-mm-text-html-renderer () |
155 |
|
"Find the renderer gnus is using to display text/html MIME parts." |
156 |
|
(or (and (boundp 'mm-inline-text-html-renderer) mm-inline-text-html-renderer) |
157 |
|
(and (boundp 'mm-text-html-renderer) mm-text-html-renderer))) |
158 |
|
|
159 |
|
(defun mh-mail-abbrev-make-syntax-table () |
160 |
|
"Call `mail-abbrev-make-syntax-table' if available." |
161 |
|
(when (fboundp 'mail-abbrev-make-syntax-table) |
162 |
|
(mail-abbrev-make-syntax-table))) |
163 |
|
|
164 |
(provide 'mh-gnus) |
(provide 'mh-gnus) |
165 |
|
|
166 |
;;; Local Variables: |
;;; Local Variables: |
167 |
;;; no-byte-compile: t |
;;; no-byte-compile: t |
168 |
;;; no-update-autoloads: t |
;;; no-update-autoloads: t |
169 |
|
;;; indent-tabs-mode: nil |
170 |
|
;;; sentence-end-double-space: nil |
171 |
;;; End: |
;;; End: |
172 |
|
|
173 |
;; arch-tag: 1e3638af-cad3-4c69-8427-bc8eb6e5e4fa |
;; arch-tag: 1e3638af-cad3-4c69-8427-bc8eb6e5e4fa |