[mew-int 2843] Re: Not receive imap header only on startup

[vvoody]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-int 2841] Re: Not receive imap header only on startup
Date: Mon, 15 Feb 2010 15:51:54 +0900 (JST)
Message-ID: <20100215.155154.131637507.kazu at example.com>

> Hello,
> 
>>> I use IMAP account for default and I have set the config in ~/.mew.el .
>>> 
>>>   (setq mew-imap-header-only t)
>>> 
>>> But Mew receive the whole mail header and body when I start Mew(M-x mew).
>>> Then in the %inbox, 's' can get the header only and 'C-us' get the entire mail. This's ok.
>> 
>> I could re-produce this buy. 
>> I will try to fix it.
> 
> Please give a try to the following patch.
> 

This patch works! Thanks for your work ;-)

> --Kazu
> 
> diff --git a/mew-net.el b/mew-net.el
> index 41049a2..bfb073f 100644
> --- a/mew-net.el
> +++ b/mew-net.el
> @@ -543,11 +543,14 @@ In remote folders, visit an inbox folder and scan with 'update."
>  	 ((eq mailbox 'mbox)
>  	  (mew-mbox-retrieve case 'inc inbox))))
>         ((mew-folder-popp inbox)
> -	(mew-pop-retrieve case 'scan case:inbox nil 'get-body))
> +	(let ((get-body (if (mew-pop-header-only case) nil t)))
> +	  (mew-pop-retrieve case 'scan case:inbox nil get-body)))
>         ((mew-folder-imapp inbox)
> -	(mew-imap-retrieve case 'scan case:inbox nil 'get-body))
> +	(let ((get-body (if (mew-imap-header-only case) nil t)))
> +	  (mew-imap-retrieve case 'scan case:inbox nil get-body)))
>         ((mew-folder-nntpp inbox)
> -	(mew-nntp-retrieve case 'scan case:inbox nil 'get-body))))))
> +	(let ((get-body (if (mew-nntp-header-only case) nil t)))
> +	  (mew-nntp-retrieve case 'scan case:inbox nil get-body)))))))
>  
>  (defun mew-mbox-retrieve (case directive inbox &optional flush)
>    ;; directive is 'inc
> 
> 
>