Mercurial > emacs

comparison lisp/mh-e/mh-gnus.el @ 56673:e9a6cbc8ca5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Upgraded to MH-E version 7.4.80. See etc/MH-E-NEWS and lisp/mh-e/ChangeLog for details.
author Bill Wohler <wohler@newt.com>
date Sun, 15 Aug 2004 22:00:06 +0000
parents e6932c8dd59b
children 4f4f410e6fe8
comparison
equal deleted inserted replaced
56672:83ab2b01744a 56673:e9a6cbc8ca5e
1 ;;; mh-gnus.el --- Make MH-E compatible with installed version of Gnus. 1 ;;; mh-gnus.el --- Make MH-E compatible with installed version of Gnus.
2 2
3 ;; Copyright (C) 2003 Free Software Foundation, Inc. 3 ;; Copyright (C) 2003, 2004 Free Software Foundation, Inc.
4 4
5 ;; Author: Satyaki Das <satyaki@theforce.stanford.edu> 5 ;; Author: Satyaki Das <satyaki@theforce.stanford.edu>
6 ;; Maintainer: Bill Wohler <wohler@newt.com> 6 ;; Maintainer: Bill Wohler <wohler@newt.com>
7 ;; Keywords: mail 7 ;; Keywords: mail
8 ;; See: mh-e.el 8 ;; See: mh-e.el
32 32
33 (load "mm-decode" t t) ; Non-fatal dependency 33 (load "mm-decode" t t) ; Non-fatal dependency
34 (load "mm-uu" t t) ; Non-fatal dependency 34 (load "mm-uu" t t) ; Non-fatal dependency
35 (load "mailcap" t t) ; Non-fatal dependency 35 (load "mailcap" t t) ; Non-fatal dependency
36 (load "smiley" t t) ; Non-fatal dependency 36 (load "smiley" t t) ; Non-fatal dependency
37 (load "mailabbrev" t t)
37 38
38 (defmacro mh-defun-compat (function arg-list &rest body) 39 (defmacro mh-defun-compat (function arg-list &rest body)
39 "This is a macro to define functions which are not defined. 40 "This is a macro to define functions which are not defined.
40 It is used for Gnus utility functions which were added recently. If FUNCTION 41 It is used for Gnus utility functions which were added recently. If FUNCTION
41 is not defined then it is defined to have argument list, ARG-LIST and body, 42 is not defined then it is defined to have argument list, ARG-LIST and body,
72 ;; HANDLE could be a CTL. 73 ;; HANDLE could be a CTL.
73 (if handle 74 (if handle
74 (put-text-property 0 (length (car handle)) parameter value 75 (put-text-property 0 (length (car handle)) parameter value
75 (car handle)))) 76 (car handle))))
76 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
77 ;; Copy of original macro is in mm-decode.el 96 ;; Copy of original macro is in mm-decode.el
78 (mh-defmacro-compat mm-handle-multipart-ctl-parameter (handle parameter) 97 (mh-defmacro-compat mm-handle-multipart-ctl-parameter (handle parameter)
79 `(get-text-property 0 ,parameter (car ,handle))) 98 `(get-text-property 0 ,parameter (car ,handle)))
80
81 (mh-do-in-xemacs (defvar default-enable-multibyte-characters))
82 99
83 ;; Copy of original function in mm-decode.el 100 ;; Copy of original function in mm-decode.el
84 (mh-defun-compat mm-readable-p (handle) 101 (mh-defun-compat mm-readable-p (handle)
85 "Say whether the content of HANDLE is readable." 102 "Say whether the content of HANDLE is readable."
86 (and (< (with-current-buffer (mm-handle-buffer handle) 103 (and (< (with-current-buffer (mm-handle-buffer handle)
132 (and (or (not (file-exists-p file)) 149 (and (or (not (file-exists-p file))
133 (yes-or-no-p (format "File %s already exists; overwrite? " 150 (yes-or-no-p (format "File %s already exists; overwrite? "
134 file))) 151 file)))
135 (mm-save-part-to-file handle file)))) 152 (mm-save-part-to-file handle file))))
136 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
137 (provide 'mh-gnus) 164 (provide 'mh-gnus)
165
138 ;;; Local Variables: 166 ;;; Local Variables:
139 ;;; no-byte-compile: t 167 ;;; no-byte-compile: t
140 ;;; no-update-autoloads: t 168 ;;; no-update-autoloads: t
169 ;;; indent-tabs-mode: nil
170 ;;; sentence-end-double-space: nil
141 ;;; End: 171 ;;; End:
142 172
143 ;; arch-tag: 1e3638af-cad3-4c69-8427-bc8eb6e5e4fa 173 ;; arch-tag: 1e3638af-cad3-4c69-8427-bc8eb6e5e4fa
144 ;;; mh-gnus.el ends here 174 ;;; mh-gnus.el ends here