From e4d2fbe9ce3f385ef8433f6914d9d7998dbaf4fe Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 8 Jan 2001 23:36:14 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 17 ++++++++++++----- lisp/gnus-agent.el | 3 ++- lisp/pop3.el | 22 ++++++++++++++++++++++ texi/ChangeLog | 12 ++++++++++++ texi/gnus-ja.texi | 25 +++++++++++++++++-------- texi/gnus.texi | 28 +++++++++++++++++++--------- 6 files changed, 84 insertions(+), 23 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3f08584..a5e578a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,12 @@ +2001-01-08 09:00:00 ShengHuo ZHU + + * pop3.el (pop3-get-message-count): Andrew Innes + 's patch of 1999-12-01 was not fully committed. + 2001-01-05 06:49:37 Lars Magne Ingebrigtsen + * gnus-agent.el (gnus-agent-fetch-session): Say what we quit. + * time-date.el (time-to-number-of-days): New function. 2001-01-04 11:06:14 Gregory Chernov @@ -84,7 +91,7 @@ * nnfolder.el (nnfolder-existing-articles): Reversed, i.e. sorted. (nnfolder-request-expire-articles): Use gnus-sorted-intersection. (nnfolder-retrieve-headers): Use intersection. Suggested by Jonas - Kvarnstr,Av(Bm . + Kvarnstr,Av(Bm . 2000-12-30 00:17:38 Lars Magne Ingebrigtsen @@ -290,7 +297,7 @@ * message.el (message-forward): Save-restriction. -2000-12-21 Kai Gro,A_(Bjohann +2000-12-21 Kai Gro,A_(Bjohann * gnus-art.el (article-treat-dumbquotes): More doc, provided by Paul Stevenson @@ -1383,10 +1390,10 @@ * message.el (message-font-lock-keywords): use message-cite-prefix-regexp. -2000-11-15 Kai Gro,A_(Bjohann +2000-11-15 Kai Gro,A_(Bjohann * gnus-group.el (gnus-group-jump-to-group-prompt): New variable by - Stein Arild Str,Ax(Bmme. + Stein Arild Str,Ax(Bmme. (gnus-group-jump-to-group): Use it. (gnus-group-jump-to-group-prompt): Customize. @@ -1518,7 +1525,7 @@ * gnus-art.el (gnus-mime-display-alternative): Show button if no preferred part. -2000-11-07 Kai Gro,A_(Bjohann +2000-11-07 Kai Gro,A_(Bjohann * gnus-sum.el (gnus-move-split-methods): Say that `gnus-split-methods' uses file names, whereas this uses group diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index fd5f269..0d59ee0 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1109,7 +1109,8 @@ the actual number of articles toggled is returned." (error "Cannot fetch articles into the Gnus agent."))) (quit (unless (funcall gnus-agent-confirmation-function - (format "Quit (%s). Continue? " err)) + (format "Quit fetching session (%s). Continue? " + err)) (signal 'quit "Cannot fetch articles into the Gnus agent.")))) (pop methods)) (gnus-message 6 "Finished fetching articles into the Gnus agent")))) diff --git a/lisp/pop3.el b/lisp/pop3.el index 0d898db..b8bc546 100644 --- a/lisp/pop3.el +++ b/lisp/pop3.el @@ -162,6 +162,28 @@ Nil means no, t means yes, not-nil-or-t means yet to be determined.") (kill-buffer crashbuf) message-count)) +(defun pop3-get-message-count () + "Return the number of messages in the maildrop." + (let* ((process (pop3-open-server pop3-mailhost pop3-port)) + message-count + (pop3-password pop3-password) + ) + ;; for debugging only + (if pop3-debug (switch-to-buffer (process-buffer process))) + ;; query for password + (if (and pop3-password-required (not pop3-password)) + (setq pop3-password + (pop3-read-passwd (format "Password for %s: " pop3-maildrop)))) + (cond ((equal 'apop pop3-authentication-scheme) + (pop3-apop process pop3-maildrop)) + ((equal 'pass pop3-authentication-scheme) + (pop3-user process pop3-maildrop) + (pop3-pass process)) + (t (error "Invalid POP3 authentication scheme."))) + (setq message-count (car (pop3-stat process))) + (pop3-quit process) + message-count)) + (defun pop3-open-server (mailhost port) "Open TCP connection to MAILHOST on PORT. Returns the process associated with the connection. diff --git a/texi/ChangeLog b/texi/ChangeLog index 3f9c590..30283c0 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,15 @@ +2001-01-07 18:18:53 Lars Magne Ingebrigtsen + + * gnus.texi (myself): Quote . + +2001-01-05 Kai Gro,A_(Bjohann + + * gnus.texi (Choosing Commands): Add xref for redisplaying the + group. Suggestion from Galen Boyer . + (The Summary Buffer): Mention reselecting the current group in the + menu. Suggestion from Galen Boyer . + (Followups To Yourself): Add Lisp example. + 2001-01-05 06:53:13 Lars Magne Ingebrigtsen * emacs-mime.texi (time-date): Addition. diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index 7501e41..7718c0e 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -563,7 +563,8 @@ The Summary Buffer * Mail Group Commands:: $B$$$/$D$+$NL?Na$O%a!<%k%0%k!<%W$@$1$G;H$&(B $B$3$H$,$G$-$k(B * Various Summary Stuff:: $BB>$N$I$N>l=j$K$b9g$o$J$+$C$?$b$N(B -* Exiting the Summary Buffer:: $B%0%k!<%W%P%C%U%!$KLa$k(B +* Exiting the Summary Buffer:: $B%0%k!<%W%P%C%U%!$KLa$k!"(B + $B$^$?$O8=:_$N%0%k!<%W$r:F$SA*Br$9$k(B * Crosspost Handling:: $B%/%m%9%]%9%H$5$l$?5-;v$,$I$N$h$&$K07$o$l$k$+(B * Duplicate Suppression:: $B%/%m%9%]%9%H$N07$$$K<:GT$7$?$H$-$NBeBXH$7$F2<$5$$!#(B + @table @kbd @item SPACE @kindex SPACE ($B35N,(B) @@ -15769,7 +15773,10 @@ Gnus $B$O8=:_$N%P%C%U%!!<$+$i(B @code{Message-ID} $B%X%C%@!<$r8+$D$1=P$9$?$a$ @vindex message-sent-hook $B$3$l$iFs$D$N4X?t$O!"4pK\E*$K$O$I$A$i$b(B @code{message-sent-hook} $B$N$h$&$J(B -$B%U%C%/$NCf$G;H$&$?$a$N$b$N$G$9!#(B +$B%U%C%/$NCf$G;H$&$?$a$N$b$N$G$9!#Nc$($P$3$N$h$&$K(B: +@lisp +(add-hook 'message-sent-hook 'gnus-score-followup-thread) +@end lisp $B$"$J$?$N<+J,$N(B @code{Message-ID} $B$r$8$C$/$j$HD/$a$F$_$k$H!"$O$8$a$NFs!"(B $B;0J8;z$O>o$KF1$8$G$"$k$3$H$K5$$,$D$/$G$7$g$&!#0J2<$NFs$D$O;d$N$b$N$G$9!#(B @@ -15785,7 +15792,7 @@ Gnus $B$O8=:_$N%P%C%U%!!<$+$i(B @code{Message-ID} $B%X%C%@!<$r8+$D$1=P$9$?$a$ @lisp ("references" - ("" + ("" 1000 nil r)) @end lisp @@ -18341,12 +18348,14 @@ but at the common table.@* $B$K(B (99 $B%j%j!<%9$H(B CVS $B%j%]%8%H%j$G$N:n6H$N8e(B) ``Gnus 5.8'' $B$H$7$F%j%j!<(B $B%9$5$l$^$7$?!#(B +2000$BG/(B10$B7n(B26$BF|$K(B Oort Gnus $B$,3+;O$5$l$^$7$?!#(B + $B$b$7@\F,<-$r;}$C$?HG$N(B Gnus -- ``(ding) Gnus'', ``September Gnus'', -``Red Gnus'', ``Quassia Gnus'' -- $B$K=P2q$C$F$b!":.Mp$7$J$$$G$/$@$5$$!#$"(B -$B$J$?$,62$,$C$F$$$k;v$rCN$i$l$F$O$$$1$^$;$s!#8e$m$K2<$,$j$J$5$$!#$f$C$/$j(B -$B$H!#B>$K2?$r$7$F$b!"Av$C$F$O$$$1$^$;$s!#$=$l$,FO$+$/$J$k$^$G!"@E$+$KJb$-(B -$B5n$j$J$5$$!#E,@Z$K%j%j!<%9$5$l$?HG$N(B Gnus $B$r8+$D$1$F!"Be$o$j$K$=$l$K4s$j(B -$BE:$C$F2<$5$$!#(B +``Red Gnus'', ``Quassia Gnus'', ``Pterodactyl Gnus'', ``Oort Gnus'' +-- $B$K=P2q$C$F$b!":.Mp$7$J$$$G$/$@$5$$!#$"$J$?$,62$,$C$F$$$k;v$rCN$i$l$F(B +$B$O$$$1$^$;$s!#8e$m$K2<$,$j$J$5$$!#$f$C$/$j$H!#B>$K2?$r$7$F$b!"Av$C$F$O$$(B +$B$1$^$;$s!#$=$l$,FO$+$/$J$k$^$G!"@E$+$KJb$-5n$j$J$5$$!#E,@Z$K%j%j!<%9$5$l(B +$B$?HG$N(B Gnus $B$r8+$D$1$F!"Be$o$j$K$=$l$K4s$jE:$C$F2<$5$$!#(B @node Other Gnus Versions @subsection $BB>$N(B gnus $B$N%P!<%8%g%s(B diff --git a/texi/gnus.texi b/texi/gnus.texi index 6dbd151..d0c5c29 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -3882,7 +3882,8 @@ You can have as many summary buffers open as you wish. * Tree Display:: A more visual display of threads. * Mail Group Commands:: Some commands can only be used in mail groups. * Various Summary Stuff:: What didn't fit anywhere else. -* Exiting the Summary Buffer:: Returning to the Group buffer. +* Exiting the Summary Buffer:: Returning to the Group buffer, + or reselecting the current group. * Crosspost Handling:: How crossposted articles are dealt with. * Duplicate Suppression:: An alternative when crosspost handling fails. * Security:: Decrypt and Verify. @@ -4336,6 +4337,9 @@ the given number of lines from the top. None of the following movement commands understand the numeric prefix, and they all select and display an article. +If you want to fetch new articles or redisplay the group, see +@ref{Exiting the Summary Buffer}. + @table @kbd @item SPACE @kindex SPACE (Summary) @@ -16274,7 +16278,11 @@ your own article. @vindex message-sent-hook These two functions are both primarily meant to be used in hooks like -@code{message-sent-hook}. +@code{message-sent-hook}, like this: +@lisp +(add-hook 'message-sent-hook 'gnus-score-followup-thread) +@end lisp + If you look closely at your own @code{Message-ID}, you'll notice that the first two or three characters are always the same. Here's two of @@ -16291,7 +16299,7 @@ myself: @lisp ("references" - ("" + ("" 1000 nil r)) @end lisp @@ -18911,14 +18919,16 @@ If was released as ``Gnus 5.6'' on March 8th 1998 (46 releases). Gnus 5.6 begat Pterodactyl Gnus on August 29th 1998 and was released as ``Gnus 5.8'' (after 99 releases and a CVS repository) on December 3rd -1999. +1999. + +On the 26th of October 2000, Oort Gnus was begun. If you happen upon a version of Gnus that has a prefixed name -- -``(ding) Gnus'', ``September Gnus'', ``Red Gnus'', ``Quassia Gnus'' -- -don't panic. Don't let it know that you're frightened. Back away. -Slowly. Whatever you do, don't run. Walk away, calmly, until you're -out of its reach. Find a proper released version of Gnus and snuggle up -to that instead. +``(ding) Gnus'', ``September Gnus'', ``Red Gnus'', ``Quassia Gnus'', +``Pterodactyl Gnus'', ``Oort Gnus'' -- don't panic. Don't let it know +that you're frightened. Back away. Slowly. Whatever you do, don't +run. Walk away, calmly, until you're out of its reach. Find a proper +released version of Gnus and snuggle up to that instead. @node Other Gnus Versions -- 1.7.10.4