Gnus v5.6.18.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 902f8d6..559718e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,22 @@
+Sat Jun 27 07:50:50 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Gnus v5.6.18 is released.
+
+Sat Jun 27 03:18:57 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * 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  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Gnus v5.6.16 is released.

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index 8e92821..be089bf 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,6 +1,6 @@
-1998-06-26  Simon Josefsson  <jas@pdc.kth.se>
+Sat Jun 27 04:37:14 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
 
-       * 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  <g740685@komaba.ecc.u-tokyo.ac.jp>
 

diff --git a/texi/gnus.texi b/texi/gnus.texi
index ea789b4..84699ea 100644 (file)
--- 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 (file)
--- 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.