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

[Kazu Yamamoto ( 山本和彦 )]

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.

--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