Mercurial > emacs

comparison lisp/gnus/mml.el @ 92336:5f827896103e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change defcustom :version from 23.0 to 23.1.
author Glenn Morris <rgm@gnu.org>
date Fri, 29 Feb 2008 04:03:49 +0000
parents 37d6263f580b
children d3767aa9ae49
comparison
equal deleted inserted replaced
92335:d3529b2790c9 92336:5f827896103e
95 MIME supertype (e.g., text), a MIME subtype (e.g., plain) and a MIME 95 MIME supertype (e.g., text), a MIME subtype (e.g., plain) and a MIME
96 type (e.g., text/plain) respectively, and DISPOSITION should be either 96 type (e.g., text/plain) respectively, and DISPOSITION should be either
97 the string \"attachment\" or the string \"inline\". The value t for 97 the string \"attachment\" or the string \"inline\". The value t for
98 SUPERTYPE, SUBTYPE or TYPE matches any of those types. The first 98 SUPERTYPE, SUBTYPE or TYPE matches any of those types. The first
99 match found will be used." 99 match found will be used."
100 :version "23.0" ;; No Gnus 100 :version "23.1" ;; No Gnus
101 :type (let ((dispositions '(radio :format "DISPOSITION: %v" 101 :type (let ((dispositions '(radio :format "DISPOSITION: %v"
102 :value "attachment" 102 :value "attachment"
103 (const :format "%v " "attachment") 103 (const :format "%v " "attachment")
104 (const :format "%v\n" "inline")))) 104 (const :format "%v\n" "inline"))))
105 `(repeat 105 `(repeat
1108 1108
1109 (defcustom mml-default-directory mm-default-directory 1109 (defcustom mml-default-directory mm-default-directory
1110 "The default directory where mml will find files. 1110 "The default directory where mml will find files.
1111 If not set, `default-directory' will be used." 1111 If not set, `default-directory' will be used."
1112 :type '(choice directory (const :tag "Default" nil)) 1112 :type '(choice directory (const :tag "Default" nil))
1113 :version "23.0" ;; No Gnus 1113 :version "23.1" ;; No Gnus
1114 :group 'message) 1114 :group 'message)
1115 1115
1116 (defun mml-minibuffer-read-file (prompt) 1116 (defun mml-minibuffer-read-file (prompt)
1117 (let* ((completion-ignored-extensions nil) 1117 (let* ((completion-ignored-extensions nil)
1118 (file (read-file-name prompt 1118 (file (read-file-name prompt