From: morioka Date: Sat, 27 Jun 1998 07:48:15 +0000 (+0000) Subject: Gnus v5.6.18. X-Git-Tag: gnus-5_6_18~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5847ba88965e2bccdd94206ba7d4742c10bb8d11;p=elisp%2Fgnus.git- Gnus v5.6.18. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 902f8d6..559718e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,22 @@ +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 a4b341f..1bb146a 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -4078,8 +4078,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 bee760e..c9ff280 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,7 +250,7 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "5.6.16" +(defconst gnus-version-number "5.6.17" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) diff --git a/lisp/message.el b/lisp/message.el index d964fb3..ff8c032 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1313,7 +1313,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) @@ -1720,7 +1720,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." @@ -2438,8 +2438,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) (car 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 ea789b4..84699ea 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Gnus 5.6.16 Manual +@settitle Gnus 5.6.18 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 Gnus 5.6.16 Manual +@title Gnus 5.6.18 Manual @author by Lars Magne Ingebrigtsen @page @@ -352,7 +352,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local spool or your mbox file. All at the same time, if you want to push your luck. -This manual corresponds to Gnus 5.6.16. +This manual corresponds to Gnus 5.6.18. @end ifinfo @@ -11071,7 +11071,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 @@ -13680,7 +13689,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. @@ -15657,6 +15666,7 @@ Also thanks to the following for patches and stuff: Jari Aalto, Adrian Aichner, +Vladimir Alexiev, Russ Allbery, Peter Arius, Matt Armstrong, @@ -15675,7 +15685,9 @@ Alastair Burt, Joao Cachopo, Zlatko Calusic, Massimo Campostrini, +Castor, Dan Christensen, +Kevin Christian, Michael R. Cook, Glenn Coombs, Frank D. Cringle, @@ -15694,6 +15706,7 @@ Luc Van Eycken, Sam Falkner, Nelson Jose dos Santos Ferreira, Sigbjorn Finne, +Decklin Foster, Gary D. Foster, Paul Franklin, Guy Geens, @@ -15776,6 +15789,7 @@ Loren Schall, Dan Schmidt, Ralph Schleicher, Philippe Schnoebelen, +Andreas Schwab, Randal L. Schwartz, Justin Sheehy, Danny Siu, @@ -15787,6 +15801,7 @@ Michael Sperber, Darren Stalder, Richard Stallman, Greg Stark, +Sam Steingold, Paul Stodghill, Kurt Swanson, Samuel Tardieu, @@ -15826,7 +15841,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.18. @end menu These lists are, of course, just @emph{short} overviews of the @@ -16361,7 +16376,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.18: @itemize @bullet diff --git a/texi/message.texi b/texi/message.texi index a6d998a..1cefc2c 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.18 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.18 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.18. Message is distributed with the Gnus distribution bearing the same version number as this manual has.