(mailcap-viewer-passes-test): Docstring fix.
* mm-bodies.el (mm-long-lines-p): Docstring fix.
* mm-decode.el (mm-w3m-safe-url-regexp, mm-verify-option)
(mm-decrypt-option, mm-handle-set-external-undisplayer)
(mm-file-name-replace-whitespace): Docstring fix.
* mm-uu.el (mm-uu-emacs-sources-regexp): Docstring fix.
(mm-uu-pgp-signed-test): Fix message.
* mml.el (mml-tweak-sexp-alist): Docstring fix.
(mml-parse-1, mml-insert-mime-headers): Fix message.
2003-07-08 Jesper Harder <harder@ifa.au.dk>
+ * mailcap.el (mailcap-parse-args-syntax-table)
+ (mailcap-viewer-passes-test): Docstring fix.
+
+ * mm-bodies.el (mm-long-lines-p): Docstring fix.
+
+ * mm-decode.el (mm-w3m-safe-url-regexp, mm-verify-option)
+ (mm-decrypt-option, mm-handle-set-external-undisplayer)
+ (mm-file-name-replace-whitespace): Docstring fix.
+
+ * mm-uu.el (mm-uu-emacs-sources-regexp): Docstring fix.
+ (mm-uu-pgp-signed-test): Fix message.
+
+ * mml.el (mml-tweak-sexp-alist): Docstring fix.
+ (mml-parse-1, mml-insert-mime-headers): Fix message.
+
* message.el (message-archive-header)
(message-subscribed-address-functions)
(message-subscribed-addresses, message-subscribed-regexps)
(modify-syntax-entry ?{ "(" table)
(modify-syntax-entry ?} ")" table)
table)
- "A syntax table for parsing sgml attributes.")
+ "A syntax table for parsing SGML attributes.")
(eval-and-compile
(when (featurep 'xemacs)
(defun mailcap-viewer-passes-test (viewer-info type-info)
"Return non-nil iff viewer specified by VIEWER-INFO passes its test clause.
-Also retun non-nil if it has no test clause. TYPE-INFO is an argument
+Also return non-nil if it has no test clause. TYPE-INFO is an argument
to supply to the test."
(let* ((test-info (assq 'test viewer-info))
(test (cdr test-info))
))))))
(defun mm-long-lines-p (length)
- "Say whether any of the lines in the buffer is longer than LINES."
+ "Say whether any of the lines in the buffer is longer than LENGTH."
(save-excursion
(goto-char (point-min))
(end-of-line)
:group 'mime-display)
(defcustom mm-w3m-safe-url-regexp "\\`cid:"
- "Regexp that matches safe url names. Some HTML mails might have a
-trick of spammers using <img> tags. It is likely to be intended to
-verify whether you have read the mail. You can prevent your personal
-informations from leaking by setting this to the regexp which matches
-the safe url names. The value of the variable `w3m-safe-url-regexp'
-will be bound with this value. You may set this value to nil if you
-consider all the urls to be safe."
+ "Regexp that matches safe url names.
+Some HTML mails might have a trick of spammers using <img> tags.
+It is likely to be intended to verify whether you have read the
+mail. You can prevent your personal informations from leaking by
+setting this to the regexp which matches the safe url names. The
+value of the variable `w3m-safe-url-regexp' will be bound with
+this value. You may set this value to nil if you consider all
+urls to be safe."
:type '(choice (regexp :tag "Regexp")
(const :tag "All URLs are safe" nil))
:group 'mime-display)
(defcustom mm-verify-option 'never
"Option of verifying signed parts.
`never', not verify; `always', always verify;
-`known', only verify known protocols. Otherwise, ask user."
+`known', only verify known protocols. Otherwise, ask user."
:type '(choice (item always)
(item never)
(item :tag "only known protocols" known)
(defcustom mm-decrypt-option nil
"Option of decrypting encrypted parts.
`never', not decrypt; `always', always decrypt;
-`known', only decrypt known protocols. Otherwise, ask user."
+`known', only decrypt known protocols. Otherwise, ask user."
:type '(choice (item always)
(item never)
(item :tag "only known protocols" known)
(throw 'found t))))))
(defun mm-handle-set-external-undisplayer (handle function)
- "Set the undisplayer for this handle; postpone undisplaying of viewers
-for types in mm-keep-viewer-alive-types."
+ "Set the undisplayer for HANDLE to FUNCTION.
+Postpone undisplaying of viewers for types in
+`mm-keep-viewer-alive-types'."
(if (mm-keep-viewer-alive-p handle)
(let ((new-handle (copy-sequence handle)))
(mm-handle-set-undisplayer new-handle function)
(defun mm-file-name-replace-whitespace (file-name)
"Replace whitespace characters in FILE-NAME with underscores.
-Set `mm-file-name-replace-whitespace' to any other string if you do not
-like underscores."
+Set the option `mm-file-name-replace-whitespace' to any other
+string if you do not like underscores."
(let ((s (or mm-file-name-replace-whitespace "_")))
(while (string-match "\\s-" file-name)
(setq file-name (replace-match s t t file-name))))
This can be either \"inline\" or \"attachment\".")
(defvar mm-uu-emacs-sources-regexp "gnu\\.emacs\\.sources"
- "The regexp of emacs sources groups.")
+ "The regexp of Emacs sources groups.")
(defcustom mm-uu-diff-groups-regexp "gnus\\.commits"
"*Regexp matching diff groups."
((eq mm-verify-option 'never) nil)
((eq mm-verify-option 'always) t)
((eq mm-verify-option 'known) t)
- (t (y-or-n-p "Verify pgp signed part?")))))
+ (t (y-or-n-p "Verify pgp signed part? ")))))
(eval-when-compile
(defvar gnus-newsgroup-charset))
(defvar mml-tweak-sexp-alist
'((mml-externalize-attachments . mml-tweak-externalize-attachments))
"A list of (SEXP . FUNCTION) for tweaking MML parts.
-SEXP is a s-expression. If the evaluation of SEXP is non-nil, FUNCTION
+SEXP is an s-expression. If the evaluation of SEXP is non-nil, FUNCTION
is called. FUNCTION is a Lisp function which is called with the MML
handle to tweak the part.")
(if (or (memq 'unknown-encoding mml-confirmation-set)
(message-options-get 'unknown-encoding)
(and (y-or-n-p "\
-Message contains characters with unknown encoding. Really send?")
+Message contains characters with unknown encoding. Really send? ")
(message-options-set 'unknown-encoding t)))
(if (setq use-ascii
(or (memq 'use-ascii mml-confirmation-set)
(message-options-get 'use-ascii)
- (and (y-or-n-p "Use ASCII as charset?")
+ (and (y-or-n-p "Use ASCII as charset? ")
(message-options-set 'use-ascii t))))
(setq charsets (delq nil charsets))
(setq warn nil))
(not (equal type mml-generate-default-type)))
(when (consp charset)
(error
- "Can't encode a part with several charsets."))
+ "Can't encode a part with several charsets"))
(insert "Content-Type: " type)
(when charset
(insert "; " (mail-header-encode-parameter
projects / gnus / commitdiff