Less strict regexp in gnus-outlook...

[Svend Tollak Munkejord <stm@bacchus.pvv.org>]

Hi,

I use ognus-0.16 and find the Outlook deuglify function `W Y f' really
great, and I use it (almost) every day. However, it fails on some
particularly ugly e-mails:

1. There may be a space after the "Original Message" line:

----- Original Message ----- 
...

2. The "Original Message" line does not always have four consecutive
   hyphens:

-- Messaggio originale --

I fixed this in a simpleminded way by changing the regexp in
gnus-outlook-repair-attribution-block from

(defun gnus-outlook-repair-attribution-block ()
  "Repair a big broken attribution block."
  (save-excursion
    (let ((case-fold-search nil)
	  (inhibit-read-only t)
	  (cite-marks gnus-outlook-deuglify-cite-marks))
      (gnus-with-article-buffer
	(article-goto-body)
	(if (re-search-forward
	     (concat "^[" cite-marks " \t]*----* ?[^-]+ [^-]+ ?----*\n"
		     "[^\n:]+:[ \t]*\\([^\n]+\\)\n"
		     "\\([^\n:]+:[ \t]*[^\n]+\n\\)+")
	     nil t)
	    (progn
	      (gnus-kill-all-overlays)
	      (replace-match "\\1 wrote:\n")
	      (match-beginning 0)))))))


to 

...
	     (concat "^[" cite-marks " \t]*--* ?[^-]+ [^-]+ ?--*\\s *\n"
		     "[^\n:]+:[ \t]*\\([^\n]+\\)\n"
		     "\\([^\n:]+:[ \t]*[^\n]+\n\\)+")
...

Regards,
-- 
Svend Tollak Munkejord