[PATCH] mml.el: Make sure that <#part> sections are at beginning of line.

[Michael Olson <mwolson@gnu.org>]

* lisp/gnus/mml.el (mml-read-part): Only look for parts at the beginning
  of a line.  This way emailed patches that just happen to have "<#part>"
  in them will not be misinterpreted.
---
This patch is for the version of Gnus that is included with CVS HEAD in
Emacs.  I thought I'd run it by the Gnus mailing list first to see if
I'm doing something mistaken.

 lisp/gnus/mml.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el
index 3aaa9c7..fedd469 100644
--- a/lisp/gnus/mml.el
+++ b/lisp/gnus/mml.el
@@ -431,7 +431,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
 		   (point)
 		 (match-beginning 0))))
       (if (re-search-forward
-	   "<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)." nil t)
+	   "^<#\\(/\\)?\\(multipart\\|part\\|external\\|mml\\)." nil t)
 	  (prog1
 	      (mml-buffer-substring-no-properties-except-hard-newlines
 	       beg (match-beginning 0))
-- 
1.5.4.3


-- 
|       Michael Olson  |  FSF Associate Member #652     |
| http://mwolson.org/  |  Hobbies: Lisp, HCoop          |
| Projects: Emacs, Muse, ERC, EMMS, ErBot, DVC, Planner |
`-------------------------------------------------------'