Mercurial > emacs

comparison lisp/gnus/mm-uu.el @ 73370:7d511b8dc9c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 150-152) - Update from CVS 2006-10-13 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> * lisp/gnus/mm-uu.el (mm-uu-pgp-signed-extract-1): Use RFC 2440 definition of "blank line" when searching for end of armor headers. 2006-10-11 Katsumi Yamaoka <yamaoka@jpl.org> * lisp/gnus/gmm-utils.el (gmm-write-region): Fix variable name. 2006-10-10 Reiner Steib <Reiner.Steib@gmx.de> * lisp/gnus/gmm-utils.el (gmm-write-region): New function based on compatibility code from `mm-make-temp-file'. * lisp/gnus/mm-util.el (mm-make-temp-file): Use `gmm-write-region'. * lisp/gnus/nnmaildir.el (nnmaildir--update-nov) (nnmaildir-request-replace-article, nnmaildir-request-accept-article): Use `gmm-write-region'. 2006-10-13 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> * man/gnus.texi (Other modes): Fix typo. Add alternative index entry for gnus-dired-attach. (Selecting a Group): Fix typo. Revision: emacs@sv.gnu.org/emacs--devo--0--patch-475
author Miles Bader <miles@gnu.org>
date Sun, 15 Oct 2006 02:49:46 +0000
parents f5a6154fa9f2
children e30f926d61f4 8dd8c8286063
comparison
equal deleted inserted replaced
73369:8ab1128eef12 73370:7d511b8dc9c6
371 (when (and mml2015-use (null (mml2015-clear-verify-function))) 371 (when (and mml2015-use (null (mml2015-clear-verify-function)))
372 (mm-set-handle-multipart-parameter 372 (mm-set-handle-multipart-parameter
373 mm-security-handle 'gnus-details 373 mm-security-handle 'gnus-details
374 (format "Clear verification not supported by `%s'.\n" mml2015-use)))) 374 (format "Clear verification not supported by `%s'.\n" mml2015-use))))
375 (goto-char (point-min)) 375 (goto-char (point-min))
376 (if (search-forward "\n\n" nil t) 376 (if (re-search-forward "\n[\t ]*\n" nil t)
377 (delete-region (point-min) (point))) 377 (delete-region (point-min) (point)))
378 (if (re-search-forward mm-uu-pgp-beginning-signature nil t) 378 (if (re-search-forward mm-uu-pgp-beginning-signature nil t)
379 (delete-region (match-beginning 0) (point-max))) 379 (delete-region (match-beginning 0) (point-max)))
380 (goto-char (point-min)) 380 (goto-char (point-min))
381 (while (re-search-forward "^- " nil t) 381 (while (re-search-forward "^- " nil t)