RFC822.PEEK in mail-source-fetch-imap

RFC822.PEEK in mail-source-fetch-imap

[Hannu Koivisto]

Greetings,

A friend of mine tried to get Gnus 5.8.8 running on XEmacs running
on Debian GNU/Linux unstable to fetch mail from a UW-IMAPD
2001beta010722 (also from Debian GNU/Linux unstable) server using
mail-sources but failed.  From some debug log he found:

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.

I know nothing about IMAP but found some RFC from WWW
(<http://www.isi.edu/in-notes/rfc2060.txt>) that says RFC822.PEEK
attribute is obsolete.  Based on this sketchy information, does
anyone have any idea of what is going on?  Even almost-the-latest
CVS sources seem to use that RFC822.PEEK...

-- 
Hannu
Please don't send copies of list mail

Re: RFC822.PEEK in mail-source-fetch-imap

[Simon Josefsson]

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