From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.user/3623
Path: news.gmane.org!not-for-mail
From: Svend Tollak Munkejord <stm+direct_reply@bacchus.pvv.org>
Newsgroups: gmane.emacs.gnus.user
Subject: Re: Can I get rid of the \201 ?
Date: Mon, 15 Mar 2004 15:20:39 +0100
Organization: The Royal Society for Putting Things on Top of Other Things
Message-ID: <hddvfl6fayw.fsf@bacchus.pvv.ntnu.no>
References: <hddoerzs6s2.fsf@bacchus.pvv.ntnu.no>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
X-Trace: sea.gmane.org 1138669674 19625 80.91.229.2 (31 Jan 2006 01:07:54 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Tue, 31 Jan 2006 01:07:54 +0000 (UTC)
Original-X-From: nobody Tue Jan 17 17:32:30 2006
Original-Path: quimby.gnus.org!not-for-mail
Original-Newsgroups: gnu.emacs.gnus
Original-NNTP-Posting-Host: bacchus.pvv.ntnu.no
Original-X-Trace: quimby.gnus.org 1079360439 2603 129.241.210.178 (15 Mar 2004 14:20:39 GMT)
Original-X-Complaints-To: usenet@quimby.gnus.org
Original-NNTP-Posting-Date: Mon, 15 Mar 2004 14:20:39 +0000 (UTC)
Mail-Copies-To: never
User-Agent: Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3 (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:2i2ckCjT2OC61Lbvi8NdcTRQFdM=
Original-Xref: bridgekeeper.physik.uni-ulm.de gnus-emacs-gnus:3764
Original-Lines: 43
X-Gnus-Article-Number: 3764   Tue Jan 17 17:32:30 2006
Xref: news.gmane.org gmane.emacs.gnus.user:3623
Archived-At: <http://permalink.gmane.org/gmane.emacs.gnus.user/3623>

I wrote:

> The body of the message is supposed to be "Hei øæå". The Subject is
> interesting, because it appears all right in the Article buffer, whereas
> in the Summary buffer it appears as "Test øæå".
>
> Can I get rid of this?

I have found that the reason for the misbehaviour is my fancy split-on-body
function. However, I don't understand why. Can anyone help?

Here it is:

(defun stm-split-on-body (relevant-terms-regexp groupname &optional regex)
  "Splits e-mail *not* fitting RELEVANT-TERMS-REGEXP to group
GROUPNAME (string).
If REGEX is nil, relevant-terms-regexp must be a list instead. Well.
Used in: nnmail-split-fancy"
  (save-excursion
; (" *nnmail incoming*") for e-mail:
    (let ((buf (or (get-buffer nnmail-article-buffer)
; (" *Original Article*") for trace (B t)
		   (get-buffer gnus-original-article-buffer)
; for respool -- Aargh. Does not work for nnmaildir:
		   (get-buffer " *nnmaildir move*"))))
      (if (not buf)
	  (progn (message "Oops, cannot find message buffer") nil)
	(set-buffer buf)
	(save-restriction
	  (if (string= (buffer-name buf) gnus-original-article-buffer)
	      (widen))
; in case we have base64 etc.
	  (run-hooks 'gnus-article-decode-hook)
	  (goto-char (point-min))
	  (if regex
	      (when (not (re-search-forward relevant-terms-regexp nil t));
		groupname)
	    (when (not (all-words-present-p relevant-terms-regexp));
	      groupname)))))))

Regards,
-- 
Svend Tollak Munkejord