From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/39070
Path: main.gmane.org!not-for-mail
From: Simon Josefsson <jas@extundo.com>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: RFC822.PEEK in mail-source-fetch-imap
Date: Mon, 1 Oct 2001 17:21:56 +0200 (CEST)
Sender: owner-ding@hpc.uh.edu
Message-ID: <Pine.LNX.4.33.0110011721210.9196-100000@lie.extundo.com>
References: <877kuf2z47.fsf@lynx.ionific.com>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-Trace: main.gmane.org 1035174836 25890 80.91.224.250 (21 Oct 2002 04:33:56 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Mon, 21 Oct 2002 04:33:56 +0000 (UTC)
Cc: <ding@gnus.org>
Return-Path: <owner-ding@hpc.uh.edu>
Original-Received: (qmail 19440 invoked from network); 1 Oct 2001 15:15:56 -0000
Original-Received: from malifon.math.uh.edu (mail@129.7.128.13)
  by mastaler.com with SMTP; 1 Oct 2001 15:15:56 -0000
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 15o4mP-0001zl-00; Mon, 01 Oct 2001 10:14:49 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Mon, 01 Oct 2001 10:14:26 -0500 (CDT)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id KAA19980
	for <ding@hpc.uh.edu>; Mon, 1 Oct 2001 10:14:09 -0500 (CDT)
Original-Received: (qmail 19422 invoked by alias); 1 Oct 2001 15:13:06 -0000
Original-Received: (qmail 19417 invoked from network); 1 Oct 2001 15:13:05 -0000
Original-Received: from lie.extundo.com (195.42.214.244)
  by gnus.org with SMTP; 1 Oct 2001 15:13:05 -0000
Original-Received: from localhost (jas@localhost)
	by lie.extundo.com (8.11.6/8.11.6) with ESMTP id f91FLub09199;
	Mon, 1 Oct 2001 17:21:56 +0200
X-Authentication-Warning: lie.extundo.com: jas owned process doing -bs
Original-To: Hannu Koivisto <azure@iki.fi>
In-Reply-To: <877kuf2z47.fsf@lynx.ionific.com>
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:39070
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:39070

On 1 Oct 2001, Hannu Koivisto wrote:

> 5 UID FETCH 1 RFC822.PEEK
> 5 BAD Bogus attribute list in UID FETCH
>
> That RFC822.PEEK seems to originate in mail-source-fetch-imap.

Try this:

Index: mail-source.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v
retrieving revision 6.9
diff -u -3 -p -c -r6.9 mail-source.el
cvs server: conflicting specifications of output style
*** mail-source.el	2001/08/30 18:40:37	6.9
--- mail-source.el	2001/10/01 15:11:44
*************** This only works when `display-time' is e
*** 901,907 ****
  		  (push (cons from imap-password) mail-source-password-cache)))
  	      ;; if predicate is nil, use all uids
  	      (dolist (uid (imap-search (or predicate "1:*") buf))
! 		(when (setq str (imap-fetch uid "RFC822.PEEK" 'RFC822 nil buf))
  		  (push uid remove)
  		  (insert "From imap " (current-time-string) "\n")
  		  (save-excursion
--- 901,910 ----
  		  (push (cons from imap-password) mail-source-password-cache)))
  	      ;; if predicate is nil, use all uids
  	      (dolist (uid (imap-search (or predicate "1:*") buf))
! 		(when (setq str (if (imap-capability 'IMAP4rev1 buf)
! 				    (imap-fetch uid "BODY.PEEK[]" 'BODYDETAIL
! 						nil buf)
! 			    (imap-fetch uid "RFC822.PEEK" 'RFC822 nil buf)))
  		  (push uid remove)
  		  (insert "From imap " (current-time-string) "\n")
  		  (save-excursion