/[emacs]/emacs/lisp/mh-e/mh-gnus.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-gnus.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2.4.1 by miles, Sat Jul 17 02:51:48 2004 UTC revision 1.2.4.2 by miles, Sat Sep 4 09:22:56 2004 UTC
# Line 1  Line 1 
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>
# Line 34  Line 34 
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.
# Line 74  BODY." Line 75  BODY."
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."
# Line 134  BODY." Line 151  BODY."
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

Legend:
Removed from v.1.2.4.1  
changed lines
  Added in v.1.2.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26