From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/2226
Path: news.gmane.org!not-for-mail
From: Svend Tollak Munkejord <stm@bacchus.pvv.org>
Newsgroups: gmane.emacs.gnus.user
Subject: Less strict regexp in gnus-outlook...
Date: Tue, 18 Mar 2003 19:33:35 +0100
Organization: The Royal Society for Putting Things on Top of Other Things
Message-ID: <hdd4r607ce8.fsf@bacchus.pvv.ntnu.no>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1138668735 14390 80.91.229.2 (31 Jan 2006 00:52:15 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 00:52:15 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:30:22 2006
Original-Path: quimby.gnus.org!newsfeed.gazeta.pl!newsfeed.tpinternet.pl!news-stoc.telia.net!news-stoa.telia.net!telia.net!newsfeed01.nntp.se.dataphone.net!nntp.se.dataphone.net!newsfeed1.bredband.com!bredband!uio.no!ntnu.no!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Original-NNTP-Posting-Host: bacchus.pvv.ntnu.no
Original-X-Trace: tyfon.itea.ntnu.no 1048012415 19500 129.241.210.178 (18 Mar 2003 18:33:35 GMT)
Original-X-Complaints-To: usenet@itea.ntnu.no
Original-NNTP-Posting-Date: Tue, 18 Mar 2003 18:33:35 +0000 (UTC)
User-Agent: Gnus/5.090016 (Oort Gnus v0.16) Emacs/21.2 (berkeley-unix)
X-Face: (2vS>!nr@2"*<u/Vs!.'EC%wn=Z{o.{|19gH.tRqnZCC[9;{7i.z<n{2fih6Ki\jX9e|:6N
 Sp'[ojB7"lCh~"1HNU8wEnZVg[Y]V>^KO{^8A<,_lGWx3HpnuA1UCA5vbsLl|2fZAV\T'x(3E`4@UJ
 >_mn@3S(.`C]g9DoFSSNAB@hftp\f-b#!UjRVfG5e#~H*^RvP+:meH63245"^?Zs7S[dE(SL`cn
Cancel-Lock: sha1:CrkyLFpWGsHIKeHYKD9xoMjIGKE=
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:2366
Original-Lines: 49
X-Gnus-Article-Number: 2366   Tue Jan 17 17:30:22 2006
Xref: news.gmane.org gmane.emacs.gnus.user:2226
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/2226>

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