Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 39c972776da60ffce884bc84c45dd34f15af3472 1 parent fa6dccf
@larsmagne larsmagne authored
View
20 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>
View
6 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
View
3  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!
View
4 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))
+
;;;
;;; 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")))
View
2  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)
View
3  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)
View
2  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
View
16 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.
View
4 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
Please sign in to comment.
Something went wrong with that request. Please try again.