Gmail

Gmail

[Terje Rosten]

If you want to read and send messages for your Gmail account using
Gnus, here is some help:

 http://web.phys.ntnu.no/~terjeros/gnus-gmail/


 - Terje

Re: Gmail

[Hiroshi Fujishima]

Hi,

Terje Rosten <terjeros@phys.ntnu.no> writes:

> If you want to read and send messages for your Gmail account using
> Gnus, here is some help:
>
>  http://web.phys.ntnu.no/~terjeros/gnus-gmail/

Quoted from above page.
| Bugs
| 
| First time pop.el is loaded (during Gnus startup) you are prompted for
| password, after you have given the password Gnus is just hanging. Hit
| `C-g' to continue. Then wait to the Group buffer is ready, then hit
| `g' to load pop.el again, things should now work.

This bug can be evaded by changing mail-source.el referring to
mail-source.el included in T-gnus as follows.

Index: lisp/mail-source.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v
retrieving revision 7.10
diff -u -r7.10 mail-source.el
--- lisp/mail-source.el	13 Feb 2005 04:44:41 -0000	7.10
+++ lisp/mail-source.el	29 May 2005 18:43:12 -0000
@@ -346,7 +346,9 @@
        (:program)
        (:function)
        (:password)
-       (:authentication password))
+       (:authentication password)
+       (:connection)
+       (:leave))
       (maildir
        (:path (or (getenv "MAILDIR") "~/Maildir/"))
        (:subdirs ("cur" "new"))
@@ -746,7 +748,12 @@
 		    (pop3-mailhost server)
 		    (pop3-port port)
 		    (pop3-authentication-scheme
-		     (if (eq authentication 'apop) 'apop 'pass)))
+ 		     (if (eq authentication 'apop) 'apop 'pass))
+		    (pop3-connection-type connection)
+		    (pop3-leave-mail-on-server
+		     (or leave
+			 (and (boundp 'pop3-leave-mail-on-server)
+			      (symbol-value 'pop3-leave-mail-on-server)))))
 		(if (or debug-on-quit debug-on-error)
 		    (save-excursion (pop3-movemail mail-source-crash-box))
 		  (condition-case err

-- 
Hiroshi Fujishima

Re: Gmail

[Katsumi Yamaoka]

>>>>> In <7cacmd24d6.fsf@nature.tsukuba.ac.jp> Hiroshi Fujishima wrote:

> This bug can be evaded by changing mail-source.el referring to
> mail-source.el included in T-gnus as follows.

Please don't do that.  Anything doesn't need other changes for
pop3.el of the T-gnus version[1] even if it is used in Gnus.  See
the section which advises mail-source-fetch-pop.

I proposed to incorporate pop3.el of that version into Gnus
before.  However, at that time I was informed that it was based
on the XEmacs version and it is uncertain who did the improvement
unfortunately.

[1] http://cvs.m17n.org/viewcvs/*checkout*/root/gnus/lisp/pop3.el?only_with_tag=t-gnus-6_17-quimby&rev=1.6.30.21.4.15

Re: Gmail

[Hiroshi Fujishima]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

>>>>>> In <7cacmd24d6.fsf@nature.tsukuba.ac.jp> Hiroshi Fujishima wrote:
>
>> This bug can be evaded by changing mail-source.el referring to
>> mail-source.el included in T-gnus as follows.
>
> Please don't do that.  Anything doesn't need other changes for
> pop3.el of the T-gnus version[1] even if it is used in Gnus.  See
> the section which advises mail-source-fetch-pop.

It did not notice so that there was the advice in pop3.el.  But it
does not to work in first time.  Because it is necessary to defadvice
a function is done before the function is executed.  In this case,
pop3.el is loaded when pop3-movemail() is executed in
mail-source-fetch-pop().

Therefore, I decided to add (eval-after-load "mail-source" (require
'pop3)) to ~/.gnus.el instead of changing mail-source.el.

-- 
Hiroshi Fujishima

Re: Gmail

[Katsumi Yamaoka]

> Katsumi Yamaoka <yamaoka@jpl.org> writes:

>> Please don't do that.  Anything doesn't need other changes for
>> pop3.el of the T-gnus version[1] even if it is used in Gnus.  See
>> the section which advises mail-source-fetch-pop.

>>>>> In <7ck6lgdxc7.fsf@nature.tsukuba.ac.jp> Hiroshi Fujishima wrote:

> But it does not to work in first time.  Because it is necessary to
> defadvice a function is done before the function is executed.  In
> this case, pop3.el is loaded when pop3-movemail() is executed in
> mail-source-fetch-pop().

Oops, I wasn't aware that pop3.el is autoloaded.  No wonder the
`leave-mail-on-server' function doesn't work at the first time.

> Therefore, I decided to add (eval-after-load "mail-source" (require
> 'pop3)) to ~/.gnus.el instead of changing mail-source.el.

Thanks.  I've fixed the comment in pop3.el of the T-gnus version.

http://cvs.m17n.org/viewcvs/*checkout*/root/gnus/lisp/pop3.el?only_with_tag=t-gnus-6_17-quimby&rev=1.6.30.21.4.16