*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ddb8dad..0514d47 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,44 @@
+Tue May  7 21:49:30 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
+
+       * gnus.el (gnus-summary-insert-subject): Would change article
+       number. 
+       (gnus-summary-display-article): Go to the right article when
+       fetching sparse articles.
+
+Sun Apr 28 21:53:44 1996  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * nnml.el (nnml-active-number):  Create and change the directory
+       before using any of the variables that requires the directory to
+       be created and change.
+
+Tue May  7 22:06:04 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-xmas.el (gnus-xmas-setup-group-toolbar): Would bug out on
+       missing etc.
+
+Tue May  7 18:21:59 1996  Lars Magne Ingebrigtsen  <larsi@hler.ifi.uio.no>
+
+       * gnus.el (gnus-kill-or-deaden-summary): Kill multiple buffers
+       here.
+
+Tue May  7 16:52:08 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+
+       * gnus-cite.el (gnus-cite-add-face): Would bug out in obscure
+       cases. 
+
+Mon May  6 09:16:02 1996  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * message.el (message-mode-map): Do not bind button3.
+       (message-mode-menu): Use easymenu.
+       (message-mode): Call `easy-menu-add'.
+       (message-make-menu-bar): Deleted.
+
+       * message-xmas.el (message-mode-menu): Deleted.
+
 Mon May  6 20:51:43 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
 
+       * gnus.el: September Gnus v0.82 is released.
+
        * gnus-cite.el (gnus-dissect-cited-text): Sift single empty
        lines. 
 

diff --git a/lisp/gnus-cite.el b/lisp/gnus-cite.el
index 7c710e7..41fca27 100644 (file)
--- a/lisp/gnus-cite.el
+++ b/lisp/gnus-cite.el
@@ -227,7 +227,7 @@ Lines matching `gnus-cite-attribution-suffix' and perhaps
     (set-buffer gnus-article-buffer)
     (gnus-cite-parse-maybe)
     (let ((alist gnus-cite-prefix-alist)
-         prefix numbers number marks)
+         prefix numbers number marks m)
       ;; Loop through citation prefixes.
       (while alist
        (setq numbers (pop alist)
@@ -673,18 +673,19 @@ See also the documentation for `gnus-article-highlight-citation'."
 
 (defun gnus-cite-add-face (number prefix face)
   ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line.
-  (if face
-      (let ((inhibit-point-motion-hooks t)
-           from to)
-       (goto-line number)
+  (when face
+    (let ((inhibit-point-motion-hooks t)
+         from to)
+      (goto-line number)
+      (unless (eobp) ;; Sometimes things become confused.
        (forward-char (length prefix))
        (skip-chars-forward " \t")
        (setq from (point))
        (end-of-line 1)
        (skip-chars-backward " \t")
        (setq to (point))
-       (if (< from to)
-           (gnus-overlay-put (gnus-make-overlay from to) 'face face)))))
+       (when (< from to)
+         (gnus-overlay-put (gnus-make-overlay from to) 'face face))))))
 
 (defun gnus-cite-toggle (prefix)
   (save-excursion

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index aad60c8..56756b0 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -577,16 +577,21 @@ If it is non-nil, it must be a toolbar.  The five legal values are
   "The summary buffer toolbar.")
 
 (defun gnus-xmas-setup-group-toolbar ()
-  (and gnus-use-toolbar
-       (message-xmas-setup-toolbar gnus-group-toolbar nil "gnus")
-       (set-specifier (symbol-value gnus-use-toolbar)
-                     (cons (current-buffer) gnus-group-toolbar))))
+  (let (dir)
+    (and gnus-use-toolbar
+        (setq dir (message-xmas-setup-toolbar gnus-group-toolbar nil "gnus"))
+        (file-exists-p (concat dir "gnus-group-catchup-current-icon-up.xpm"))
+        (set-specifier (symbol-value gnus-use-toolbar)
+                       (cons (current-buffer) gnus-group-toolbar)))))
 
 (defun gnus-xmas-setup-summary-toolbar ()
-  (and gnus-use-toolbar
-       (message-xmas-setup-toolbar gnus-summary-toolbar nil "gnus")
-       (set-specifier (symbol-value gnus-use-toolbar)
-                     (cons (current-buffer) gnus-summary-toolbar))))
+  (let (dir)
+    (and gnus-use-toolbar
+        (setq dir (message-xmas-setup-toolbar gnus-summary-toolbar 
+                                              nil "gnus"))
+        (file-exists-p (concat dir "gnus-group-catchup-current-icon-up.xpm"))
+        (set-specifier (symbol-value gnus-use-toolbar)
+                       (cons (current-buffer) gnus-summary-toolbar)))))
 
 ;; Written by Erik Naggum <erik@naggum.no>.
 ;; Saved by Steve Baur <steve@miranova.com>.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 5deb8fb..b168acf 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1715,7 +1715,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.82"
+(defconst gnus-version "September Gnus v0.83"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes
@@ -9330,8 +9330,13 @@ This is meant to be called in `gnus-article-internal-prepare-hook'."
          (goto-char pos)
          (gnus-delete-line)
          (gnus-data-remove (mail-header-number old-header))))
+      (when old-header
+       (mail-header-set-number header (mail-header-number old-header)))
+      (setq gnus-newsgroup-sparse
+           (delq (mail-header-number header) gnus-newsgroup-sparse))
       (gnus-rebuild-thread (mail-header-id header))
-      (gnus-summary-goto-subject (setq number (mail-header-number header))))
+      (gnus-summary-goto-subject (setq number (mail-header-number header))
+                                nil t))
     (when (and (numberp number)
               (> number 0))
       ;; We have to update the boundaries even if we can't fetch the
@@ -9747,7 +9752,6 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
     (run-hooks 'gnus-summary-prepare-exit-hook)
     ;; If we have several article buffers, we kill them at exit.
     (unless gnus-single-article-buffer
-      (gnus-kill-buffer gnus-article-buffer)
       (gnus-kill-buffer gnus-original-article-buffer)
       (setq gnus-article-current nil))
     (when gnus-use-cache
@@ -9765,8 +9769,6 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
       (gnus-group-jump-to-group group)
       (gnus-group-next-unread-group 1))
     (run-hooks 'gnus-summary-exit-hook)
-    (unless gnus-single-article-buffer
-      (setq gnus-article-current nil))
     (if temporary
        nil                             ;Nothing to do.
       ;; If we have several article buffers, we kill them at exit.
@@ -9904,6 +9906,12 @@ gnus-exit-group-hook is called with no arguments if that value is non-nil."
 
 (defun gnus-kill-or-deaden-summary (buffer)
   "Kill or deaden the summary BUFFER."
+  (when (and (buffer-name buffer)
+            (not gnus-single-article-buffer))
+    (save-excursion
+      (set-buffer buffer)
+      (gnus-kill-buffer gnus-article-buffer)
+      (gnus-kill-buffer gnus-original-article-buffer)))
   (cond (gnus-kill-summary-on-exit
         (when (and gnus-use-trees
                    (and (get-buffer buffer)
@@ -10118,8 +10126,8 @@ Given a prefix, will force an `article' buffer configuration."
            (funcall gnus-summary-display-article-function article all-header)
          (gnus-article-prepare article all-header))
       (run-hooks 'gnus-select-article-hook)
-      (gnus-summary-recenter)
-      (gnus-summary-goto-subject article)
+      (gnus-summary-recenter) gnus-current-article
+      (gnus-summary-goto-subject gnus-current-article)
       (when gnus-use-trees
        (gnus-possibly-generate-tree article)
        (gnus-highlight-selected-tree article))
@@ -11130,6 +11138,7 @@ article massaging functions being run."
          gnus-break-pages
          gnus-visual)
       (gnus-summary-select-article nil 'force)))
+  (gnus-summary-goto-subject gnus-current-article)
 ;  (gnus-configure-windows 'article)
   (gnus-summary-position-point))
 
@@ -13396,7 +13405,9 @@ The following commands are available:
                      (setq do-update-line article)
                      (setq article (mail-header-id header))
                      (let ((gnus-override-method gnus-refer-article-method))
-                       (gnus-read-header article)))
+                       (gnus-read-header article))
+                     (setq gnus-newsgroup-sparse
+                           (delq article gnus-newsgroup-sparse)))
                     ((vectorp header)
                      ;; It's a real article.
                      (setq article (mail-header-id header)))
@@ -13471,12 +13482,13 @@ The following commands are available:
     
       ;; Update sparse articles.
       (when do-update-line
-       (save-excursion
+       (let ((buf (current-buffer)))
          (set-buffer gnus-summary-buffer)
          (gnus-summary-update-article do-update-line)
-         (gnus-summary-goto-subject do-update-line)
+         (gnus-summary-goto-subject do-update-line nil t)
          (set-window-point (get-buffer-window (current-buffer) t)
-                           (point)))))))
+                           (point))
+         (set-buffer buf))))))
 
 (defun gnus-read-header (id &optional header)
   "Read the headers of article ID and enter them into the Gnus system."

diff --git a/lisp/message-xmas.el b/lisp/message-xmas.el
index 98a4ceb..da693a5 100644 (file)
--- a/lisp/message-xmas.el
+++ b/lisp/message-xmas.el
@@ -96,12 +96,6 @@ If it is non-nil, it must be a toolbar.  The five legal values are
        (set-specifier (symbol-value message-use-toolbar)
                      (cons (current-buffer) message-toolbar))))
 
-(defun message-mode-menu (event)
-  (interactive "e")
-  (select-window (event-window event))
-  (let ((popup-menu-titles nil))
-    (popup-menu 'message-mode-menu)))
-
 (provide 'message-xmas)
 
 ;;; message-xmas.el ends here

diff --git a/lisp/message.el b/lisp/message.el
index 92552cc..5e44235 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -34,6 +34,7 @@
 (require 'mail-header)
 (require 'nnheader)
 (require 'timezone)
+(require 'easymenu)
 
 ;;;###autoload
 (defvar message-fcc-handler-function 'rmail-output
@@ -376,34 +377,6 @@ The cdr of ech entry is a function for applying the face to a region.")
 (defvar message-sent-hook nil
   "Hook run after sending messages.")
 
-(if (string-match "XEmacs\\|Lucid" emacs-version)
-    (defvar message-mode-menu
-      '("Send Message"
-       "Go to Field:"
-       "----"
-       ["To:" message-goto-to t]
-       ["Subject:" message-goto-subject t]
-       ["Summary:" message-goto-summary t]
-       ["Keywords:" message-goto-keywords t]
-       ["Newsgroups:" message-goto-newsgroups t]
-       ["Followup-To:" message-goto-followup-to t]
-       ["Distribution:" message-goto-distribution t]
-       ["Body" message-goto-body t]
-       ["Signature" message-goto-signature t]
-       "----"
-       "Miscellaneous Commands:"
-       "----"
-       ["Sort Headers" message-sort-headers t]
-       ["Yank Original" message-yank-original t]
-       ["Fill Yanked Message" message-fill-yanked-message t]
-;;  ["Insert Signature"         news-reply-signature     t]
-       ["Caesar (rot13) Message" message-caesar-buffer-body t]
-       "----"
-       ["Post Message" message-send-and-exit t]
-       ["Abort Message" message-dont-send t]
-       )
-      "Buffer Menu for XEmacs."))
-
 ;;; Internal variables.
 
 ;;; Regexp matching the delimiter of messages in UNIX mail format
@@ -699,16 +672,33 @@ Return the number of headers removed."
 
   (define-key message-mode-map "\C-c\C-c" 'message-send-and-exit)
   (define-key message-mode-map "\C-c\C-s" 'message-send)
-  (define-key message-mode-map "\C-c\C-k" 'message-dont-send)
-  (if (string-match "XEmacs\\|Lucid" emacs-version)
-      (define-key message-mode-map 'button3 'message-mode-menu)))
-
-(defun message-make-menu-bar ()
-  (unless (boundp 'message-menu)
-    (easy-menu-define
-     message-menu message-mode-map ""
-     '("Message"
-       ["Fill Citation" message-fill-yanked-message t]))))
+  (define-key message-mode-map "\C-c\C-k" 'message-dont-send))
+
+(easy-menu-define message-mode-menu message-mode-map
+  "Message Menu."
+  '("Message"
+    "Go to Field:"
+    "----"
+    ["To:" message-goto-to t]
+    ["Subject:" message-goto-subject t]
+    ["Summary:" message-goto-summary t]
+    ["Keywords:" message-goto-keywords t]
+    ["Newsgroups:" message-goto-newsgroups t]
+    ["Followup-To:" message-goto-followup-to t]
+    ["Distribution:" message-goto-distribution t]
+    ["Body" message-goto-body t]
+    ["Signature" message-goto-signature t]
+    "----"
+    "Miscellaneous Commands:"
+    "----"
+    ["Sort Headers" message-sort-headers t]
+    ["Yank Original" message-yank-original t]
+    ["Fill Yanked Message" message-fill-yanked-message t]
+    ;;  ["Insert Signature"         news-reply-signature     t]
+    ["Caesar (rot13) Message" message-caesar-buffer-body t]
+    "----"
+    ["Post Message" message-send-and-exit t]
+    ["Abort Message" message-dont-send t]))
 
 ;;;###autoload
 (defun message-mode ()
@@ -774,6 +764,7 @@ C-c C-r  message-ceasar-buffer-body (rot13 the message body)."
     (mail-hist-define-keys))
   (when (string-match "XEmacs\\|Lucid" emacs-version)
     (message-setup-toolbar))
+  (easy-menu-add message-mode-menu message-mode-map)
   (run-hooks 'text-mode-hook 'message-mode-hook))
 
 \f
@@ -2567,7 +2558,7 @@ which specify the range to operate on."
        (if (eq (following-char) (char-after (- (point) 2)))
           (delete-char -2))))))
 
-;; Support for Mouse menus
+;; Support for toolbar
 (when (string-match "XEmacs\\|Lucid" emacs-version)
   (require 'message-xmas))
 

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 0b14610..88f312d 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -585,6 +585,7 @@ all. This may very well take some time.")
     (unless active
       ;; Perhaps the active file was corrupt?  See whether
       ;; there are any articles in this group.
+      (nnml-possibly-create-directory group)
       (nnml-possibly-change-directory group)
       (unless nnml-article-file-alist
        (setq nnml-article-file-alist