*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da623bc..b7e91d9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,23 @@
+Sun Aug 27 05:05:05 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
+
+       * nnvirtual.el (nnvirtual-create-mapping): Numbering
+       irregularities - would be off by 1 for each of some component
+       groups.
+
+       * custom.el: make-face does not exist on non-X Emacsen.
+
+       * gnus-vm.el (gnus-vm-make-folder): Removed the removal of the
+       toolbar since that led to other problems later.
+
+       * gnus-msg.el (gnus-inews-news): Don't insert Message-ID on BCC if
+       that's not required.
+
+       * gnus-msg.el: Autoload gnus-uu-post-news.
+
 Sat Aug 26 03:18:39 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
 
+       * gnus.el: 0.99.23 is released.
+
        * gnus-uu.el (gnus-uu-grab-articles): Didn't update mode line.
 
        * gnus.el (gnus-replace-chars-in-string): Translate pairs.
@@ -60,7 +78,7 @@ Fri Aug 25 06:03:51 1995  Lars Magne Ingebrigtsen  <lingebri@sunsci4.cern.ch>
 
 Fri Aug 25 05:44:07 1995  Lars Magne Ingebrigtsen  <lingebri@sunscipw.cern.ch>
 
-       * gnus.el: 0.99.20 is released.
+       * gnus.el: 0.99.20-22 is released.
 
 Fri Aug 25 02:57:19 1995  Lars Magne Ingebrigtsen  <lingebri@sunscipw.cern.ch>
 

diff --git a/lisp/custom.el b/lisp/custom.el
index 55bb87c..f77e205 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -129,7 +129,8 @@ STRING should be given if the last search was by `string-match' on STRING."
 (if (facep 'underline)
     ()
   ;; No underline face in XEmacs 19.12.
-  (funcall (intern "make-face") 'underline)
+  (and (fboundp 'make-face)
+       (funcall (intern "make-face") 'underline))
   ;; Must avoid calling set-face-underline-p directly, because it
   ;; is a defsubst in emacs19, and will make the .elc files non
   ;; portable!
@@ -1373,7 +1374,8 @@ FG BG STIPPLE BOLD ITALIC UNDERLINE"
                              (or bg "default")
                              (or stipple "default")
                              bold italic underline))))
-    (if (facep name)
+    (if (and (facep name)
+            (fboundp 'make-face))
        ()
       (make-face name)
       (modify-face name

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 2debf38..07ff7aa 100644 (file)
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -124,7 +124,8 @@ pounce directly on the real variables themselves."))
       (setq gnus-easymenu 'auc-menu)
 
       (or (memq 'underline (list-faces))
-         (funcall (intern "make-face") 'underline))
+         (and (fboundp 'make-face)
+              (funcall (intern "make-face") 'underline)))
       ;; Must avoid calling set-face-underline-p directly, because it
       ;; is a defsubst in emacs19, and will make the .elc files non
       ;; portable!

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 7fa5a20..f359ed8 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -226,6 +226,9 @@ headers.")
 (defvar gnus-article-copy nil)
 (defvar gnus-reply-subject nil)
 
+(eval-and-compile
+  (autoload 'gnus-uu-post-news "gnus-uu" nil t))
+
 \f
 ;;;
 ;;; Gnus Posting Functions
@@ -653,6 +656,7 @@ will attempt to use the foreign server to post the article."
                ;; We generate a Message-ID so that the mail and the
                ;; news copy of the message both get the same ID.
                (or (mail-fetch-field "message-id")
+                   (not (memq 'Message-ID gnus-required-headers))
                    (progn
                      (goto-char (point-max))
                      (insert "Message-ID: " (gnus-inews-message-id) "\n")))

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 076e1af..1bae460 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1601,7 +1601,7 @@ is nil, the description the user enters will be included at the
 beginning of the first article, which will be numbered (1/x). Default 
 is t.")
 
-(defconst gnus-uu-post-binary-separator "--binary follows this line--")
+(defvar gnus-uu-post-binary-separator "--binary follows this line--")
 (defvar gnus-uu-post-message-id nil)
 (defvar gnus-uu-post-inserted-file-name nil)
 (defvar gnus-uu-winconf-post-news nil)

diff --git a/lisp/gnus-vm.el b/lisp/gnus-vm.el
index ee32d74..aab5a6e 100644 (file)
--- a/lisp/gnus-vm.el
+++ b/lisp/gnus-vm.el
@@ -70,8 +70,7 @@ Has to be set before gnus-vm is loaded.")
     ;; insert a newline, otherwise the last line gets lost
     (goto-char (point-max))
     (insert "\n")
-    (let (vm-use-toolbar vm-use-menus)
-      (vm-mode))
+    (vm-mode)
     tmp-folder))
   
 (defun gnus-summary-save-article-vm (&optional arg)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 78b5dec..bdb1ee5 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1343,7 +1343,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 "(ding) Gnus v0.99.23"
+(defconst gnus-version "(ding) Gnus v0.99.24"
   "Version number for this version of Gnus.")
 
 (defvar gnus-info-nodes

diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el
index c0468a2..22a4eec 100644 (file)
--- a/lisp/nnvirtual.el
+++ b/lisp/nnvirtual.el
@@ -334,7 +334,7 @@ If the stream is opened, return T, otherwise return NIL."
        (if (null active)
            ()
          ;; And then we do the mapping for this component group. If
-         ;; you feel tempte to cast your eyes to the soup below -
+         ;; you feel tempted to cast your eyes to the soup below -
          ;; don't. It'll hurt your soul. Suffice to say that it
          ;; assigns ranges of nnvirtual article numbers to the
          ;; different component groups. To get the article number
@@ -343,7 +343,7 @@ If the stream is opened, return T, otherwise return NIL."
          ;; slice the mess below assigns, and active is the lowest
          ;; active article in the component group. 
          (setq itotal (1+ (- (cdr active) (car active))))
-         (if (setq ireads (nth 2 info))
+         (if (setq ireads (nth 2 info))
              (let ((itreads
                     (if (not (listp (cdr ireads)))
                         (setq ireads (list (cons (car ireads) (cdr ireads))))
@@ -359,8 +359,12 @@ If the stream is opened, return T, otherwise return NIL."
                (while itreads
                  (setcar (or (and (numberp (car itreads)) itreads)
                              (car itreads))
-                         (+ (- (or (and (numberp (car itreads)) (car itreads))
-                                   (car (car itreads))) (car active)) offset))
+                         (+ (max 
+                             1 (- (if (numberp (car itreads)) 
+                                      (car itreads)
+                                    (car (car itreads)))
+                                  (car active)))
+                            offset))
                  (if (not (numberp (car itreads)))
                      (setcdr (car itreads)
                              (+ (- (cdr (car itreads)) (car active)) offset)))
@@ -373,7 +377,9 @@ If the stream is opened, return T, otherwise return NIL."
        (setq groups (cdr groups))))
     (setq nnvirtual-current-mapping
          (nreverse nnvirtual-current-mapping))
-    (gnus-sethash group (cons 1 offset) gnus-active-hashtb)
+    ;; Set Gnus active info.
+    (gnus-sethash group (cons 1 (1- offset)) gnus-active-hashtb)
+    ;; Set Gnus read info.
     (setcar (nthcdr 2 info) reads)
 
     ;; Then we deal with the marks.

diff --git a/texi/gnus.texi b/texi/gnus.texi
index 6293718..33ec9a9 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1015,8 +1015,8 @@ articles will be fetched.  If it is positive, the @samp{n} articles that
 have arrived most recently will be fetched.
 
 @vindex gnus-select-group-hook
-@vindex gnus-auto-select-newsgroup
-If @code{gnus-auto-select-newsgroup} is non-@code{nil}, the first unread
+@vindex gnus-auto-select-first
+If @code{gnus-auto-select-first} is non-@code{nil}, the first unread
 article in the group will be displayed when you enter the group.  If you
 want to prevent automatic selection in some group (say, in a binary
 group with Huge articles) you can set this variable to @code{nil} in