[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-gnus.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mh-e/mh-gnus.el [emacs-unicode-2] |
Date: |
Fri, 16 Jul 2004 23:13:14 -0400 |
Index: emacs/lisp/mh-e/mh-gnus.el
diff -c /dev/null emacs/lisp/mh-e/mh-gnus.el:1.2.2.1
*** /dev/null Sat Jul 17 02:47:15 2004
--- emacs/lisp/mh-e/mh-gnus.el Sat Jul 17 02:46:42 2004
***************
*** 0 ****
--- 1,144 ----
+ ;;; mh-gnus.el --- Make MH-E compatible with installed version of Gnus.
+
+ ;; Copyright (C) 2003 Free Software Foundation, Inc.
+
+ ;; Author: Satyaki Das <address@hidden>
+ ;; Maintainer: Bill Wohler <address@hidden>
+ ;; Keywords: mail
+ ;; See: mh-e.el
+
+ ;; This file is part of GNU Emacs.
+
+ ;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ ;; GNU General Public License for more details.
+
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING. If not, write to the
+ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+
+ ;;; Commentary:
+
+ ;;; Change Log:
+
+ ;;; Code:
+
+ (load "mm-decode" t t) ; Non-fatal dependency
+ (load "mm-uu" t t) ; Non-fatal dependency
+ (load "mailcap" t t) ; Non-fatal dependency
+ (load "smiley" t t) ; Non-fatal dependency
+
+ (defmacro mh-defun-compat (function arg-list &rest body)
+ "This is a macro to define functions which are not defined.
+ It is used for Gnus utility functions which were added recently. If FUNCTION
+ is not defined then it is defined to have argument list, ARG-LIST and body,
+ BODY."
+ (let ((defined-p (fboundp function)))
+ (unless defined-p
+ `(defun ,function ,arg-list ,@body))))
+ (put 'mh-defun-compat 'lisp-indent-function 'defun)
+
+ (defmacro mh-defmacro-compat (function arg-list &rest body)
+ "This is a macro to define functions which are not defined.
+ It is used for Gnus utility functions which were added recently. If FUNCTION
+ is not defined then it is defined to have argument list, ARG-LIST and body,
+ BODY."
+ (let ((defined-p (fboundp function)))
+ (unless defined-p
+ `(defmacro ,function ,arg-list ,@body))))
+ (put 'mh-defmacro-compat 'lisp-indent-function 'defun)
+
+ ;; Copy of original function from gnus-util.el
+ (mh-defun-compat gnus-local-map-property (map)
+ "Return a list suitable for a text property list specifying keymap MAP."
+ (cond (mh-xemacs-flag (list 'keymap map))
+ ((>= emacs-major-version 21) (list 'keymap map))
+ (t (list 'local-map map))))
+
+ ;; Copy of original function from mm-decode.el
+ (mh-defun-compat mm-merge-handles (handles1 handles2)
+ (append (if (listp (car handles1)) handles1 (list handles1))
+ (if (listp (car handles2)) handles2 (list handles2))))
+
+ ;; Copy of function from mm-decode.el
+ (mh-defun-compat mm-set-handle-multipart-parameter (handle parameter value)
+ ;; HANDLE could be a CTL.
+ (if handle
+ (put-text-property 0 (length (car handle)) parameter value
+ (car handle))))
+
+ ;; Copy of original macro is in mm-decode.el
+ (mh-defmacro-compat mm-handle-multipart-ctl-parameter (handle parameter)
+ `(get-text-property 0 ,parameter (car ,handle)))
+
+ (mh-do-in-xemacs (defvar default-enable-multibyte-characters))
+
+ ;; Copy of original function in mm-decode.el
+ (mh-defun-compat mm-readable-p (handle)
+ "Say whether the content of HANDLE is readable."
+ (and (< (with-current-buffer (mm-handle-buffer handle)
+ (buffer-size)) 10000)
+ (mm-with-unibyte-buffer
+ (mm-insert-part handle)
+ (and (eq (mm-body-7-or-8) '7bit)
+ (not (mm-long-lines-p 76))))))
+
+ ;; Copy of original function in mm-bodies.el
+ (mh-defun-compat mm-long-lines-p (length)
+ "Say whether any of the lines in the buffer is longer than LENGTH."
+ (save-excursion
+ (goto-char (point-min))
+ (end-of-line)
+ (while (and (not (eobp))
+ (not (> (current-column) length)))
+ (forward-line 1)
+ (end-of-line))
+ (and (> (current-column) length)
+ (current-column))))
+
+ (mh-defun-compat mm-keep-viewer-alive-p (handle)
+ ;; Released Gnus doesn't keep handles associated with externally displayed
+ ;; MIME parts. So this will always return nil.
+ nil)
+
+ (mh-defun-compat mm-destroy-parts (list)
+ "Older emacs don't have this function."
+ nil)
+
+ ;;; This is mm-save-part from gnus 5.10 since that function in emacs21.2 is
+ ;;; buggy (the args to read-file-name are incorrect). When all supported
+ ;;; versions of Emacs come with at least Gnus 5.10, we can delete this
+ ;;; function and rename calls to mh-mm-save-part to mm-save-part.
+ (defun mh-mm-save-part (handle)
+ "Write HANDLE to a file."
+ (let ((name (mail-content-type-get (mm-handle-type handle) 'name))
+ (filename (mail-content-type-get
+ (mm-handle-disposition handle) 'filename))
+ file)
+ (when filename
+ (setq filename (file-name-nondirectory filename)))
+ (setq file (read-file-name "Save MIME part to: "
+ (or mm-default-directory
+ default-directory)
+ nil nil (or filename name "")))
+ (setq mm-default-directory (file-name-directory file))
+ (and (or (not (file-exists-p file))
+ (yes-or-no-p (format "File %s already exists; overwrite? "
+ file)))
+ (mm-save-part-to-file handle file))))
+
+ (provide 'mh-gnus)
+ ;;; Local Variables:
+ ;;; no-byte-compile: t
+ ;;; no-update-autoloads: t
+ ;;; End:
+
+ ;; arch-tag: 1e3638af-cad3-4c69-8427-bc8eb6e5e4fa
+ ;;; mh-gnus.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/mh-e/mh-gnus.el [emacs-unicode-2],
Miles Bader <=