From de33ba6f61071710a03d89c4f2f7c5f1c71be985 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 27 Jun 1998 08:16:08 +0000 Subject: [PATCH] Sync up with gnus-5_6_20. --- lisp/ChangeLog | 36 ++++++++++++++++++++++++++++++++++++ lisp/gnus-soup.el | 2 ++ lisp/gnus-sum.el | 13 ++++++------- lisp/gnus.el | 4 ++-- lisp/message.el | 7 +++---- lisp/nnfolder.el | 13 +++++++++---- lisp/nngateway.el | 2 +- texi/ChangeLog | 4 ++-- texi/gnus.texi | 29 ++++++++++++++++++++++------- texi/message.texi | 6 +++--- 10 files changed, 86 insertions(+), 30 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 902f8d6..671dafe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,39 @@ +Sat Jun 27 08:56:08 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.20 is released. + +Sat Jun 27 08:49:51 1998 Arne Georg Gleditsch + + * gnus-sum.el (gnus-parent-headers): Check better for headers. + +Sat Jun 27 08:45:09 1998 Lars Magne Ingebrigtsen + + * message.el (message-check-news-body-syntax): Buggy checksum + check. + +Sat Jun 27 07:59:22 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.19 is released. + +Sat Jun 27 07:50:50 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.18 is released. + +Sat Jun 27 03:18:57 1998 Lars Magne Ingebrigtsen + + * gnus-soup.el (gnus-soup-save-areas): Made interactive. + + * nnfolder.el (nnfolder-request-replace-article): Check all X-From + headers. + + * gnus-sum.el (gnus-update-marks): Don't nix out cache lists. + + * nngateway.el (nngateway-mail2news-header-transformation): + Changed semantics. + + * message.el (message-check-news-body-syntax): Don't look at + buffer size to see whether text has been added. + Fri Jun 26 15:46:05 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.16 is released. diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el index 8e92821..be089bf 100644 --- a/lisp/gnus-soup.el +++ b/lisp/gnus-soup.el @@ -310,6 +310,8 @@ If NOT-ALL, don't pack ticked articles." (or (mail-header-lines header) "0")))) (defun gnus-soup-save-areas () + "Write all SOUP buffers." + (interactive) (gnus-soup-write-areas) (save-excursion (let (buf) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 7e1cd53..70acc89 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3268,13 +3268,13 @@ If LINE, insert the rebuilt thread starting on line LINE." (headers in-headers) references) (while (and parent - headers (not (zerop generation)) (setq references (mail-header-references headers))) - (when (and references - (setq parent (gnus-parent-id references)) - (setq headers (car (gnus-id-to-thread parent)))) - (decf generation))) + (setq headers (if (and references + (setq parent (gnus-parent-id references))) + (car (gnus-id-to-thread parent)) + nil)) + (decf generation)) (and (not (eq headers in-headers)) headers))) @@ -4088,8 +4088,7 @@ If READ-ALL is non-nil, all articles in the group are selected." (defun gnus-update-marks () "Enter the various lists of marked articles into the newsgroup info list." - (let ((types (gnus-delete-alist 'cached - (copy-sequence gnus-article-mark-lists))) + (let ((types gnus-article-mark-lists) (info (gnus-get-info gnus-newsgroup-name)) (uncompressed '(score bookmark killed)) type list newmarked symbol) diff --git a/lisp/gnus.el b/lisp/gnus.el index 5fecd6b..c00e470 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,11 +250,11 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "6.7.4" +(defconst gnus-version-number "6.7.5" "Version number for this version of gnus.") (defconst gnus-version - (format "Semi-gnus %s (based on Gnus 5.6.16; for SEMI 1.8)" + (format "Semi-gnus %s (based on Gnus 5.6.20; for SEMI 1.8)" gnus-version-number) "Version string for this version of gnus.") diff --git a/lisp/message.el b/lisp/message.el index d81eee8..f761af0 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1325,7 +1325,7 @@ C-c C-r message-caesar-buffer-body (rot13 the message body)." "-- $\\|---+$\\|" page-delimiter ;;!!! Uhm... shurely this can't be right? - "[> " (regexp-quote message-yank-prefix) "]+$\\|")) + "[> " (regexp-quote message-yank-prefix) "]+$")) (setq paragraph-separate paragraph-start) (make-local-variable 'message-reply-headers) (setq message-reply-headers nil) @@ -1732,7 +1732,7 @@ prefix, and don't delete any headers." (unless (bolp) (insert ?\n)) (unless modified - (setq message-checksum (cons (message-checksum) (buffer-size))))))) + (setq message-checksum (message-checksum)))))) (defun message-cite-original-without-signature () "Cite function in the standard Message manner." @@ -2614,8 +2614,7 @@ to find out how to use this." (message-check 'new-text (or (not message-checksum) - (not (and (eq (message-checksum) (car message-checksum)) - (eq (buffer-size) (cdr message-checksum)))) + (not (eq (message-checksum) message-checksum)) (y-or-n-p "It looks like no new text has been added. Really post? "))) ;; Check the length of the signature. diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el index 5f399d8..db9666b 100644 --- a/lisp/nnfolder.el +++ b/lisp/nnfolder.el @@ -397,10 +397,15 @@ time saver for large mailboxes.") (save-excursion (set-buffer buffer) (goto-char (point-min)) - (if (looking-at "X-From-Line: ") - (replace-match "From ") - (unless (looking-at message-unix-mail-delimiter) - (insert "From nobody " (current-time-string) "\n"))) + (let (xfrom) + (while (re-search-forward "^X-From-Line: \\(.*\\)$" nil t) + (setq xfrom (match-string 1)) + (gnus-delete-line)) + (goto-char (point-min)) + (if xfrom + (insert "From " xfrom "\n") + (unless (looking-at message-unix-mail-delimiter) + (insert "From nobody " (current-time-string) "\n")))) (nnfolder-normalize-buffer) (set-buffer nnfolder-current-buffer) (goto-char (point-min)) diff --git a/lisp/nngateway.el b/lisp/nngateway.el index 6b59be5..2139885 100644 --- a/lisp/nngateway.el +++ b/lisp/nngateway.el @@ -81,7 +81,7 @@ parameter -- the gateway address.") (message-remove-header "to") (message-remove-header "cc") (goto-char (point-min)) - (insert "To: mail2news@" gateway "\n")) + (insert "To: " gateway "\n")) (nnoo-define-skeleton nngateway) diff --git a/texi/ChangeLog b/texi/ChangeLog index 31225f3..30092c9 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,6 +1,6 @@ -1998-06-26 Simon Josefsson +Sat Jun 27 04:37:14 1998 Lars Magne Ingebrigtsen - * gnus-sum.el (gnus-get-newsgroup-headers): parse Chars: headers + * gnus.texi (Mail-To-News Gateways): Addition. Fri Jun 26 13:33:00 1998 Yoshiki Hayashi diff --git a/texi/gnus.texi b/texi/gnus.texi index 3da8252..66125f4 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.7.3 Manual +@settitle Semi-gnus 6.7.5 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.7.3 Manual +@title Semi-gnus 6.7.5 Manual @author by Lars Magne Ingebrigtsen @page @@ -359,7 +359,7 @@ internationalization/localization and multiscript features based on MULE API. So Semi-gnus does not discriminate various language communities. Oh, if you are a Klingon, please wait Unicode Next Generation. -This manual corresponds to Semi-gnus 6.7.3. +This manual corresponds to Semi-gnus 6.7.5. @end ifinfo @@ -11072,7 +11072,16 @@ Creates a @code{To} header that looks like @item nngateway-mail2news-header-transformation Creates a @code{To} header that looks like -@samp{mail2news}@@@code{nngateway-address}. +@code{nngateway-address}. + +Here's an example: + +@lisp +(setq gnus-post-method + '(nngateway "mail2news@replay.com" + (nngateway-header-transformation + nngateway-mail2news-header-transformation))) +@end lisp @end table @@ -13681,7 +13690,7 @@ lots of percentages everywhere. @menu * Formatting Basics:: A formatting variable is basically a format string. -* Mode Line Formatting:: Some rules about mode line formatting varsables. +* Mode Line Formatting:: Some rules about mode line formatting variables. * Advanced Formatting:: Modifying output in various ways. * User-Defined Specs:: Having Gnus call your own functions. * Formatting Fonts:: Making the formatting look colorful and nice. @@ -15658,6 +15667,7 @@ Also thanks to the following for patches and stuff: Jari Aalto, Adrian Aichner, +Vladimir Alexiev, Russ Allbery, Peter Arius, Matt Armstrong, @@ -15676,7 +15686,9 @@ Alastair Burt, Joao Cachopo, Zlatko Calusic, Massimo Campostrini, +Castor, Dan Christensen, +Kevin Christian, Michael R. Cook, Glenn Coombs, Frank D. Cringle, @@ -15695,6 +15707,7 @@ Luc Van Eycken, Sam Falkner, Nelson Jose dos Santos Ferreira, Sigbjorn Finne, +Decklin Foster, Gary D. Foster, Paul Franklin, Guy Geens, @@ -15777,6 +15790,7 @@ Loren Schall, Dan Schmidt, Ralph Schleicher, Philippe Schnoebelen, +Andreas Schwab, Randal L. Schwartz, Justin Sheehy, Danny Siu, @@ -15788,6 +15802,7 @@ Michael Sperber, Darren Stalder, Richard Stallman, Greg Stark, +Sam Steingold, Paul Stodghill, Kurt Swanson, Samuel Tardieu, @@ -15827,7 +15842,7 @@ actually are people who are using Gnus. Who'd'a thunk it! * ding Gnus:: New things in Gnus 5.0/5.1, the first new Gnus. * September Gnus:: The Thing Formally Known As Gnus 5.3/5.3. * Red Gnus:: Third time best---Gnus 5.4/5.5. -* Quassia Gnus:: Two times two is four, or Gnus 5.6.16. +* Quassia Gnus:: Two times two is four, or Gnus 5.6.20. @end menu These lists are, of course, just @emph{short} overviews of the @@ -16362,7 +16377,7 @@ Emphasized text can be properly fontisized: @node Quassia Gnus @subsubsection Quassia Gnus -New features in Gnus 5.6.16: +New features in Gnus 5.6.20: @itemize @bullet diff --git a/texi/message.texi b/texi/message.texi index a6d998a..1c808dd 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.16 Manual +@settitle Message 5.6.20 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 5.6.16 Manual +@title Message 5.6.20 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 5.6.16. Message is distributed with +This manual corresponds to Message 5.6.20. Message is distributed with the Gnus distribution bearing the same version number as this manual has. -- 1.7.10.4