blob: 0e1bde71f20a6957d0040bf71e00ec57f88256de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
;;; mh-gnus.el --- make MH-E compatible with various versions of Gnus -*- lexical-binding: t; -*-
;; Copyright (C) 2003-2004, 2006-2021 Free Software Foundation, Inc.
;; Author: Satyaki Das <satyaki@theforce.stanford.edu>
;; Maintainer: Bill Wohler <wohler@newt.com>
;; 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 3 of the License, 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. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(require 'mh-e)
(eval-and-compile
(require 'gnus-util nil t)
(require 'mm-bodies nil t)
(require 'mm-decode nil t)
(require 'mm-view nil t)
(require 'mml nil t))
(defun mh-gnus-local-map-property (map)
"Return a list suitable for a text property list specifying keymap MAP."
(declare (obsolete nil "29.1"))
(list 'keymap map))
(define-obsolete-function-alias 'mh-mm-merge-handles
#'mm-merge-handles "29.1")
(define-obsolete-function-alias 'mh-mm-set-handle-multipart-parameter
#'mm-set-handle-multipart-parameter "29.1")
(define-obsolete-function-alias 'mh-mm-inline-text-vcard
#'mm-inline-text-vcard "29.1")
(define-obsolete-function-alias 'mh-mm-possibly-verify-or-decrypt
#'mm-possibly-verify-or-decrypt "29.1")
(define-obsolete-function-alias 'mh-mm-handle-multipart-ctl-parameter
#'mm-handle-multipart-ctl-parameter "29.1")
(define-obsolete-function-alias 'mh-mm-readable-p
#'mm-readable-p "29.1")
(define-obsolete-function-alias 'mh-mm-long-lines-p
#'mm-long-lines-p "29.1")
(define-obsolete-function-alias 'mh-mm-keep-viewer-alive-p
#'mm-keep-viewer-alive-p "29.1")
(define-obsolete-function-alias 'mh-mm-destroy-parts
#'mm-destroy-parts "29.1")
(define-obsolete-function-alias 'mh-mm-uu-dissect-text-parts
#'mm-uu-dissect-text-parts "29.1")
(define-obsolete-function-alias 'mh-mml-minibuffer-read-disposition
#'mml-minibuffer-read-disposition "29.1")
;; This is mm-save-part from Gnus 5.11 since that function in Emacs
;; 21.2 is buggy (the args to read-file-name are incorrect) and the
;; version in Emacs 22 is not consistent with C-x C-w in that you
;; can't just specify a directory and have the right thing happen.
(defun mh-mm-save-part (handle &optional prompt)
"Write HANDLE to a file.
PROMPT overrides the default one used to ask user for a file name."
(let ((filename (or (mail-content-type-get
(mm-handle-disposition handle) 'filename)
(mail-content-type-get
(mm-handle-type handle) 'name)))
file)
(when filename
(setq filename (gnus-map-function mm-file-name-rewrite-functions
(file-name-nondirectory filename))))
(setq file
(read-file-name (or prompt "Save MIME part to: ")
(or mm-default-directory default-directory)
nil nil (or filename "")))
(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)))
(progn
(mm-save-part-to-file handle file)
file))))
(defun mh-mm-text-html-renderer ()
"Find the renderer Gnus is using to display text/html MIME parts."
(declare (obsolete mm-text-html-renderer "29.1"))
mm-text-html-renderer)
(provide 'mh-gnus)
;; Local Variables:
;; no-update-autoloads: t
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
;;; mh-gnus.el ends here
|
