Commit c66e8c280e73986f6239a9a9cdd2d988316d2c16 - flim

New upstream version 1.14.9+0.20201117 Tatsuya Kinoshita 3 years ago

5 changed file(s) with 11 addition(s) and 6 deletion(s). Raw diff Collapse all Expand all

-1

mel-q.el less more

25	25	;;; Code:
26	26
27	27	(require 'mime-def)
28		(require 'path-util)
29	28	(require 'pces)
30	29
31	30

108	107	(replace-match "")))))
109	108
110	109
	110	(declare-function exec-installed-p "path-util"
	111	(file &optional paths suffixes))
	112
111	113	(defvar quoted-printable-internal-encoding-limit
112	114	(progn
113	115	(require 'path-util)

-0

mel.el less more

256	256	(mel-use-module 'mel-g '("x-gzip64"))
257	257	(mel-use-module 'mel-u '("x-uue" "x-uuencode"))
258	258
	259	(declare-function module-installed-p "path-util"
	260	(module &optional paths))
	261
259	262	(defvar mel-q-ccl-module
260	263	(progn
261	264	(require 'path-util)

-0

mime.el less more

-4

mmgeneric.el less more

23	23
24	24	;;; Code:
25	25
	26	(require 'mcharset)
	27	(require 'std11)
26	28	(require 'luna)
27
28		(eval-when-compile
29		(require 'eword-decode) ; mime-find-field-presentation-method
30		)
	29	(require 'eword-decode)
31	30
32	31
33	32	;;; @ MIME entity

-1

std11.el less more

64	64	(if boundary (concat "^\$" (regexp-quote boundary) "\$?$")
65	65	"^$")
66	66	nil t)
67		(narrow-to-region (point-min) (point))))
	67	(narrow-to-region (point-min) (match-beginning 0))))
68	68
69	69	;;;###autoload
70	70	(defun std11-field-body (name &optional boundary)

64	64	(if boundary (concat "^\\(" (regexp-quote boundary) "\\)?$")
65	65	"^$")
66	66	nil t)
67		(narrow-to-region (point-min) (point))))
	67	(narrow-to-region (point-min) (match-beginning 0))))
68	68
69	69	;;;###autoload
70	70	(defun std11-field-body (name &optional boundary)