*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 605cbd2..9a1ecda 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,56 @@
+Thu May 23 21:06:47 1996  Lars Magne Ingebrigtsen  <larsi@hler.ifi.uio.no>
+
+       * gnus-soup.el (gnus-soup-add-article): Would remove Xrefs from
+       packet. 
+
+       * gnus.el (gnus-summary-catchup-to-here): Don't show hidden
+       threads. 
+
+       * nnmail.el (nnmail-moved-inboxes): New variable.
+       (nnmail-move-inbox): Use it.
+
+       * gnus-uu.el (gnus-uu-decode-uu): Optional argument.
+
+       * nnbabyl.el (nnbabyl-insert-lines): Don't insert negative Lines
+       headers. 
+
+Thu May 23 19:28:15 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
+
+       * gnus.el (gnus-summary-insert-pseudos): Would create contiguous
+       mouse-face areas.
+
+       * nnheader-ems.el: New file.
+       (nnheader-xmas-run-at-time): New function.
+       (nnheader-xmas-cancel-timer): Ditto.
+       (nnheader-xmas-insert-file-contents-literally): Moved here.
+
+       * gnus.el (gnus-read-move-group-name): Bind
+       minibuffer-confirm-incomplete. 
+
+Thu May 23 15:20:47 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+
+       * nntp.el (nntp-request-close): Give the QUIT time to reach the
+       server before closing the connection.
+       (nntp-close-server): Ditto.
+
+       * gnus.el (gnus-summary-exit): Run the exit hook with point on the
+       group being exited.
+
+Thu May 23 15:03:16 1996  <morioka@jaist.ac.jp>
+
+       * gnus.el (gnus-narrow-to-signature): Mimeish new definition.
+
+Thu May 23 15:03:16 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+
+       * nnfolder.el (nnfolder-close-group): Don't read the buffer when
+       closing down.
+
+       * gnus.el (gnus-group-exit): Prompt even when the server is down. 
+
 Wed May 22 21:56:56 1996  Lars Magne Ingebrigtsen  <larsi@hler.ifi.uio.no>
 
+       * gnus.el: September Gnus v0.91 is released.
+
        * gnus.el (gnus-setup-news): Slave Gnusii should clear the dribble
        buffer.
 

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 3c07026..6f24e88 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -46,8 +46,8 @@
        (t
        (setq byte-compile-warnings 
              '(free-vars unresolved callargs redefine obsolete))))
-      (when (or (not (member file '("gnus-xmas.el" "x-easymenu.el"
-                                   "gnus-picon.el" "message-xmas.el")))
+      (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el" 
+                                   "message-xmas.el" "nnheader-ems.el")))
                xemacs)
        (condition-case ()
            (byte-compile-file file)

diff --git a/lisp/gnus-soup.el b/lisp/gnus-soup.el
index c84aa7e..5fd0f8c 100644 (file)
--- a/lisp/gnus-soup.el
+++ b/lisp/gnus-soup.el
@@ -144,7 +144,7 @@ move those articles instead."
          (when (gnus-request-article-this-buffer 
                 (car articles) gnus-newsgroup-name)
            (save-restriction
-             (message-narrow-to-headers)
+             (message-narrow-to-head)
              (message-remove-header gnus-soup-ignored-headers t))
            (gnus-soup-store gnus-soup-directory prefix headers
                             gnus-soup-encoding-type 

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 23cfc1b..ab570ac 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -320,7 +320,7 @@ The headers will be included in the sequence they are matched.")
 
 ;; Commands.
 
-(defun gnus-uu-decode-uu (n)
+(defun gnus-uu-decode-uu (&optional n)
   "Uudecodes the current article."
   (interactive "P") 
   (gnus-uu-decode-with-method 'gnus-uu-uustrip-article n))
@@ -335,7 +335,7 @@ The headers will be included in the sequence they are matched.")
                          gnus-uu-default-dir t))))
   (gnus-uu-decode-with-method 'gnus-uu-uustrip-article n dir nil nil t))
 
-(defun gnus-uu-decode-unshar (n)
+(defun gnus-uu-decode-unshar (&optional n)
   "Unshars the current article."
   (interactive "P")
   (gnus-uu-decode-with-method 'gnus-uu-unshar-article n nil nil 'scan t))
@@ -375,7 +375,7 @@ The headers will be included in the sequence they are matched.")
        (make-temp-name (concat gnus-uu-work-dir "binhex")))
   (gnus-uu-decode-with-method 'gnus-uu-binhex-article n dir))
 
-(defun gnus-uu-decode-uu-view (n)
+(defun gnus-uu-decode-uu-view (&optional n)
   "Uudecodes and views the current article."    
   (interactive "P")
   (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
@@ -391,7 +391,7 @@ The headers will be included in the sequence they are matched.")
   (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
     (gnus-uu-decode-uu-and-save n dir)))
 
-(defun gnus-uu-decode-unshar-view (n)
+(defun gnus-uu-decode-unshar-view (&optional n)
   "Unshars and views the current article."
   (interactive "P")
   (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
@@ -432,7 +432,7 @@ The headers will be included in the sequence they are matched.")
 
 ;; Digest and forward articles
 
-(defun gnus-uu-digest-mail-forward (n &optional post)
+(defun gnus-uu-digest-mail-forward (&optional n post)
   "Digests and forwards all articles in this series."
   (interactive "P")
   (let ((gnus-uu-save-in-digest t)
@@ -477,7 +477,7 @@ The headers will be included in the sequence they are matched.")
     (kill-buffer buf)
     (setq gnus-uu-digest-from-subject nil)))
 
-(defun gnus-uu-digest-post-forward (n)
+(defun gnus-uu-digest-post-forward (&optional n)
   "Digest and forward to a newsgroup."
   (interactive "P")
   (gnus-uu-digest-mail-forward n t))
@@ -561,7 +561,7 @@ The headers will be included in the sequence they are matched.")
                (> (gnus-summary-thread-level) level))))
   (gnus-summary-position-point))
 
-(defun gnus-uu-mark-over (score)
+(defun gnus-uu-mark-over (&optional score)
   "Mark all articles with a score over SCORE (the prefix.)"
   (interactive "P")
   (let ((score (gnus-score-default score))
@@ -619,12 +619,12 @@ The headers will be included in the sequence they are matched.")
 
 ;; All PostScript functions written by Erik Selberg <speed@cs.washington.edu>. 
 
-(defun gnus-uu-decode-postscript (n)
+(defun gnus-uu-decode-postscript (&optional n)
   "Gets postscript of the current article."
   (interactive "P")
   (gnus-uu-decode-with-method 'gnus-uu-decode-postscript-article n))
 
-(defun gnus-uu-decode-postscript-view (n)
+(defun gnus-uu-decode-postscript-view (&optional n)
   "Gets and views the current article."
   (interactive "P")
   (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 7500353..c17ccc6 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -360,8 +360,6 @@ call it with the value of the `gnus-data' text property."
   (if (< emacs-minor-version 14)
       (fset 'gnus-set-text-properties 'gnus-xmas-set-text-properties))
 
-  (fset 'nnheader-find-file-noselect 'gnus-xmas-find-file-noselect)
-
   (or (boundp 'standard-display-table) (setq standard-display-table nil))
 
   (defvar gnus-mouse-face-prop 'highlight)
@@ -558,41 +556,45 @@ If it is non-nil, it must be a toolbar.  The five legal values are
 `right-toolbar', and `left-toolbar'.")
 
 (defvar gnus-group-toolbar 
-  '([gnus-group-exit gnus-group-exit t "Exit Gnus"]
-    [gnus-group-kill-group gnus-group-kill-group t "Kill group"]
+  '(
     [gnus-group-get-new-news gnus-group-get-new-news t "Get new news"]
     [gnus-group-get-new-news-this-group 
      gnus-group-get-new-news-this-group t "Get new news in this group"]
     [gnus-group-catchup-current 
      gnus-group-catchup-current t "Catchup group"]
     [gnus-group-describe-group 
-     gnus-group-describe-group t "Describe group"])
+     gnus-group-describe-group t "Describe group"]
+    [gnus-group-kill-group gnus-group-kill-group t "Kill group"]
+    [gnus-group-exit gnus-group-exit t "Exit Gnus"]
+    )
   "The group buffer toolbar.")
 
 (defvar gnus-summary-toolbar 
-  '([gnus-summary-post-news 
+  '(
+    [gnus-summary-post-news 
      gnus-summary-post-news t "Post an article"]
-    [gnus-summary-save-article-file
-     gnus-summary-save-article-file t "Save article in file"]
-    [gnus-summary-save-article
-     gnus-summary-save-article t "Save article"]
-    [gnus-summary-reply 
-     gnus-summary-reply t "Mail a reply"]
-    [gnus-summary-reply-with-original
-     gnus-summary-reply-with-original t "Mail a reply and yank the original"]
-    [gnus-summary-followup 
-     gnus-summary-followup t "Post a followup"]
     [gnus-summary-followup-with-original
      gnus-summary-followup-with-original t 
      "Post a followup and yank the original"]
+    [gnus-summary-followup 
+     gnus-summary-followup t "Post a followup"]
+    [gnus-summary-reply-with-original
+     gnus-summary-reply-with-original t "Mail a reply and yank the original"]
+    [gnus-summary-reply 
+     gnus-summary-reply t "Mail a reply"]
+    [gnus-summary-caesar-message
+     gnus-summary-caesar-message t "Rot 13"]
     [gnus-uu-decode-uu
      gnus-uu-decode-uu t "Decode uuencoded articles"]
+    [gnus-summary-save-article-file
+     gnus-summary-save-article-file t "Save article in file"]
+    [gnus-summary-save-article
+     gnus-summary-save-article t "Save article"]
     [gnus-uu-post-news 
      gnus-uu-post-news t "Post an uuencoded article"]
-    [gnus-summary-caesar-message
-     gnus-summary-caesar-message t "Rot 13"]
     [gnus-summary-cancel-article
-     gnus-summary-cancel-article t "Cancel article"])
+     gnus-summary-cancel-article t "Cancel article"]
+    )
   "The summary buffer toolbar.")
 
 (defvar gnus-summary-mail-toolbar
@@ -626,139 +628,6 @@ If it is non-nil, it must be a toolbar.  The five legal values are
         (set-specifier (symbol-value gnus-use-toolbar)
                        (cons (current-buffer) bar)))))
 
-;; Written by Erik Naggum <erik@naggum.no>.
-;; Saved by Steve Baur <steve@miranova.com>.
-(or (fboundp 'insert-file-contents-literally)
-(defun insert-file-contents-literally (filename &optional visit beg end replace)
-  "Like `insert-file-contents', q.v., but only reads in the file.
-A buffer may be modified in several ways after reading into the buffer due
-to advanced Emacs features, such as file-name-handlers, format decoding,
-find-file-hooks, etc.
-  This function ensures that none of these modifications will take place."
-  (let (                                ; (file-name-handler-alist nil)
-        (format-alist nil)
-        (after-insert-file-functions nil)
-        (find-buffer-file-type-function 
-         (if (fboundp 'find-buffer-file-type)
-             (symbol-function 'find-buffer-file-type)
-           nil)))
-    (unwind-protect
-        (progn
-          (fset 'find-buffer-file-type (lambda (filename) t))
-          (insert-file-contents filename visit beg end replace))
-      (if find-buffer-file-type-function
-          (fset 'find-buffer-file-type find-buffer-file-type-function)
-        (fmakunbound 'find-buffer-file-type))))))
-
-(defun gnus-xmas-find-file-noselect (filename &optional nowarn rawfile)
-  "Read file FILENAME into a buffer and return the buffer.
-If a buffer exists visiting FILENAME, return that one, but
-verify that the file has not changed since visited or saved.
-The buffer is not selected, just returned to the caller."
-  (setq filename
-       (abbreviate-file-name
-        (expand-file-name filename)))
-  (if (file-directory-p filename)
-      (if find-file-run-dired
-         (dired-noselect filename)
-       (error "%s is a directory." filename))
-    (let* ((buf (get-file-buffer filename))
-          (truename (abbreviate-file-name (file-truename filename)))
-          (number (nthcdr 10 (file-attributes truename)))
-          ;; Find any buffer for a file which has same truename.
-          (other (and (not buf) 
-                      (if (fboundp 'find-buffer-visiting)
-                          (find-buffer-visiting filename)
-                        (get-file-buffer filename))))
-          error)
-      ;; Let user know if there is a buffer with the same truename.
-      (if other
-         (progn
-           (or nowarn
-               (string-equal filename (buffer-file-name other))
-               (message "%s and %s are the same file"
-                        filename (buffer-file-name other)))
-           ;; Optionally also find that buffer.
-           (if (or (and (boundp 'find-file-existing-other-name)
-                        find-file-existing-other-name)
-                   find-file-visit-truename)
-               (setq buf other))))
-      (if buf
-         (or nowarn
-             (verify-visited-file-modtime buf)
-             (cond ((not (file-exists-p filename))
-                    (error "File %s no longer exists!" filename))
-                   ((yes-or-no-p
-                     (if (string= (file-name-nondirectory filename)
-                                  (buffer-name buf))
-                         (format
-                          (if (buffer-modified-p buf)
-                              "File %s changed on disk.  Discard your edits? "
-                            "File %s changed on disk.  Reread from disk? ")
-                          (file-name-nondirectory filename))
-                       (format
-                        (if (buffer-modified-p buf)
-                            "File %s changed on disk.  Discard your edits in %s? "
-                          "File %s changed on disk.  Reread from disk into %s? ")
-                        (file-name-nondirectory filename)
-                        (buffer-name buf))))
-                    (save-excursion
-                      (set-buffer buf)
-                      (revert-buffer t t)))))
-       (save-excursion
-;;; The truename stuff makes this obsolete.
-;;;      (let* ((link-name (car (file-attributes filename)))
-;;;             (linked-buf (and (stringp link-name)
-;;;                              (get-file-buffer link-name))))
-;;;        (if (bufferp linked-buf)
-;;;            (message "Symbolic link to file in buffer %s"
-;;;                     (buffer-name linked-buf))))
-         (setq buf (create-file-buffer filename))
-         ;;      (set-buffer-major-mode buf)
-         (set-buffer buf)
-         (erase-buffer)
-         (if rawfile
-             (condition-case ()
-                 (insert-file-contents-literally filename t)
-               (file-error
-                ;; Unconditionally set error
-                (setq error t)))
-           (condition-case ()
-               (insert-file-contents filename t)
-             (file-error
-              ;; Run find-file-not-found-hooks until one returns non-nil.
-              (or t                    ; (run-hook-with-args-until-success 'find-file-not-found-hooks)
-                  ;; If they fail too, set error.
-                  (setq error t)))))
-         ;; Find the file's truename, and maybe use that as visited name.
-         (setq buffer-file-truename truename)
-         (setq buffer-file-number number)
-         ;; On VMS, we may want to remember which directory in a search list
-         ;; the file was found in.
-         (and (eq system-type 'vax-vms)
-              (let (logical)
-                (if (string-match ":" (file-name-directory filename))
-                    (setq logical (substring (file-name-directory filename)
-                                             0 (match-beginning 0))))
-                (not (member logical find-file-not-true-dirname-list)))
-              (setq buffer-file-name buffer-file-truename))
-         (if find-file-visit-truename
-             (setq buffer-file-name
-                   (setq filename
-                         (expand-file-name buffer-file-truename))))
-         ;; Set buffer's default directory to that of the file.
-         (setq default-directory (file-name-directory filename))
-         ;; Turn off backup files for certain file names.  Since
-         ;; this is a permanent local, the major mode won't eliminate it.
-         (and (not (funcall backup-enable-predicate buffer-file-name))
-              (progn
-                (make-local-variable 'backup-inhibited)
-                (setq backup-inhibited t)))
-         (if rawfile
-             nil
-           (after-find-file error (not nowarn)))))
-      buf)))
-
 (defun gnus-xmas-mail-strip-quoted-names (address)
   "Protect mail-strip-quoted-names from NIL input.
 XEmacs compatibility workaround."

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 45514a1..cf8e515 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1722,7 +1722,7 @@ variable (string, integer, character, etc).")
   "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
   "The mail address of the Gnus maintainers.")
 
-(defconst gnus-version "September Gnus v0.91"
+(defconst gnus-version "September Gnus v0.92"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -4263,8 +4263,13 @@ The following commands are available:
   (buffer-disable-undo (current-buffer))
   (setq truncate-lines t)
   (setq buffer-read-only t)
+  (make-local-hook 'post-command-hook)
+  (add-hook 'post-command-hook 'gnus-clear-inboxes-moved)
   (run-hooks 'gnus-group-mode-hook))
 
+(defun gnus-clear-inboxes-moved ()