Commit b07e0143 authored by Miles Bader's avatar Miles Bader
Browse files

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 167)

   - Update from CVS

2006-11-18  Andreas Seltenreich  <>

   * lisp/gnus/mm-uu.el (mm-uu-pgp-signed-extract-1): Make last fix more thorough
   and comment it.

   * lisp/gnus/nnslashdot.el (nnslashdot-retrieve-headers-1): Update regexp.

parent b98f7445
2006-11-18 Andreas Seltenreich <>
* mm-uu.el (mm-uu-pgp-signed-extract-1): Make last fix more thorough
and comment it.
* nnslashdot.el (nnslashdot-retrieve-headers-1): Update regexp.
2006-11-15 Reiner Steib <>
* gnus-util.el (gnus-extract-address-components): Improve comment.
......@@ -373,8 +373,16 @@ Return that buffer."
mm-security-handle 'gnus-details
(format "Clear verification not supported by `%s'.\n" mml2015-use))))
(goto-char (point-min))
(if (re-search-forward "\n[\t ]*\n" nil t)
(delete-region (point-min) (point)))
;; We need to be careful not to strip beyond the armor headers.
;; Previously, an attacker could replace the text inside our
;; markup with trailing garbage by injecting whitespace into the
;; message.
(while (looking-at "Hash:") ; The only header allowed in cleartext
(forward-line)) ; signatures according to RFC2440.
(when (looking-at "[\t ]*$")
(delete-region (point-min) (point))
(if (re-search-forward mm-uu-pgp-beginning-signature nil t)
(delete-region (match-beginning 0) (point-max)))
(goto-char (point-min))
......@@ -142,7 +142,7 @@
(setq article (if (and article (< start article)) article start))
(goto-char point)
(while (re-search-forward
"<a name=\"\\([0-9]+\\)\">\\([^<]+\\)</a>.*\n.*\n.*score:\\([^)]+\\))"
"<a name=\"\\([0-9]+\\)\">\\([^<]+\\)\\(?:.*\n\\)\\{2,10\\}.*score:\\([^)]+\\))"
nil t)
(setq cid (match-string 1)
subject (match-string 2)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment