*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a264a2b..da623bc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,59 @@
+Sat Aug 26 03:18:39 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
+
+       * gnus-uu.el (gnus-uu-grab-articles): Didn't update mode line.
+
+       * gnus.el (gnus-replace-chars-in-string): Translate pairs.
+
+Sat Aug 26 02:54:16 1995  Lars Magne Ingebrigtsen  <lingebri@sunscipw.cern.ch>
+
+       * gnus.el (gnus-summary-next-article): `n' `SPC' etc in XEmacs
+       didn't work.
+
+Sat Aug 26 00:07:59 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
+
+       * nntp.el (nntp-open-server): Would try to reconnect to the same
+       dead server.
+
+       * gnus.el (gnus-group-insert-group-line): Didn't insert process
+       marks. 
+       (gnus-read-active-file): Would screw up the group info if a
+       secondary server was down.
+
+       * gnus-vm.el (gnus-vm-make-folder): Don't use toolbar.
+
+       * nnfolder.el (nnfolder-save-mail): Would delete one \n too much.
+
+       * gnus.el (gnus-start-news-server): Give better error message.
+
+       * nntp.el (nntp-open-server-semi-internal): Save the error message
+       on unsuccessful connects.
+
+       * nnfolder.el (nnfolder-request-move-article): Deleted wrong
+       article marker.
+       (nnfolder-request-accept-article): Ditto.
+
+       * gnus.el (gnus-summary-refer-article): Would bug out if the
+       article buffer didn't exist.
+
+       * gnus-cache.el (gnus-cache-braid-nov): Would skip every other
+       line. 
+
+Fri Aug 25 23:22:07 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
+
+       * gnus-msg.el (gnus-inews-news): Would kill connection after
+       posting to a foreign server.
+
+       * gnus.el (gnus): Read init file before doing splash.
+
+Fri Aug 25 18:08:35 1995  Ulrik Dickow  <dickow@nbi.dk>
+
+       * gnus-msg.el (gnus-post-news): Treat `gnus-auto-mail-to-author' right.
+
+Fri Aug 25 15:04:37 1995  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * gnus-cus.el (gnus-custom-import-cite-face-list): Support old
+       light and dark settings of `gnus-cite-face-list'.
+
 Fri Aug 25 06:03:51 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
 
        * gnus.el (gnus-modtime-botch): New variable.

diff --git a/lisp/custom.el b/lisp/custom.el
index 85c7b98..55bb87c 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -116,7 +116,6 @@ STRING should be given if the last search was by `string-match' on STRING."
          (substring string (match-beginning num) (match-end num))
        (buffer-substring (match-beginning num) (match-end num))))))
 
-
 (or (fboundp 'facep)
     ;; Introduced in Emacs 19.29.
     (defun facep (x)

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index 4917f86..b3d1afc 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -288,9 +288,10 @@
        (if (search-forward (concat "\n" (int-to-string (car cached)) "\t")
                            nil t)
            (setq beg (progn (beginning-of-line) (point))
-                 end (progn (forward-line 1) (point)))
+                 end (progn (end-of-line) (point)))
          (setq beg nil)))
-      (and beg (insert-buffer-substring cache-buf beg end))
+      (if beg (progn (insert-buffer-substring cache-buf beg end)
+                    (insert "\n")))
       (setq cached (cdr cached)))
     (kill-buffer cache-buf)))
 

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 7ed13b8..6516e05 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -388,6 +388,7 @@ When there are citations from multiple articles in the same message,
 Gnus will try to give each citation from each article its own face.
 This should make it easier to see who wrote what.")
                  (name . gnus-cite-face-list)
+                 (import . gnus-custom-import-cite-face-list)
                  (type . list)
                  (calculate . (cond ((not (eq gnus-display-type 'color))
                                      '(italic))
@@ -521,6 +522,14 @@ mark:    The article's mark.")
                 ;; beginners. 
                 )))))
 
+(defun gnus-custom-import-cite-face-list (custom alist)
+  ;; Backward compatible groking of light and dark.
+  (cond ((eq alist 'light)
+        (setq alist (mapcar 'gnus-make-face gnus-face-light-name-list)))
+       ((eq alist 'dark)
+        (setq alist (mapcar 'gnus-make-face gnus-face-dark-name-list))))
+  (funcall (custom-super custom 'import) custom alist))
+
 ;(defun gnus-custom-import-swap-alist (custom alist)
 ;  ;; Swap key and value in CUSTOM ALIST.
 ;  (let ((swap (mapcar (lambda (e) (cons (cdr e) (car e))) alist)))

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index bff16bb..7fa5a20 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -462,9 +462,9 @@ Type \\[describe-mode] in the buffer to get a list of commands."
          ;; Suggested by Daniel Quinlan <quinlan@best.com>.
          ;; Revised to respect Reply-To by Ulrik Dickow <dickow@nbi.dk>.
           (let ((to (and (not post)
-                        (if (or (and (eq gnus-auto-mail-to-author 'ask)
-                                     (y-or-n-p "Also send mail to author? "))
-                                gnus-auto-mail-to-author)
+                        (if (if (eq gnus-auto-mail-to-author 'ask)
+                                (y-or-n-p "Also send mail to author? ")
+                              gnus-auto-mail-to-author)
                             (or (save-excursion
                                   (set-buffer gnus-article-copy)