*** pub/dgnus/lisp/custom.el Sat Aug 26 03:56:12 1995 --- dgnus/lisp/custom.el Sun Aug 27 08:34:27 1995 *************** *** 129,135 **** (if (facep 'underline) () ;; No underline face in XEmacs 19.12. ! (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! --- 129,136 ---- (if (facep 'underline) () ;; No underline face in XEmacs 19.12. ! (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,1379 **** (or bg "default") (or stipple "default") bold italic underline)))) ! (if (facep name) () (make-face name) (modify-face name --- 1374,1381 ---- (or bg "default") (or stipple "default") bold italic underline)))) ! (if (and (facep name) ! (fboundp 'make-face)) () (make-face name) (modify-face name *** pub/dgnus/lisp/gnus-ems.el Sat Aug 26 03:56:12 1995 --- dgnus/lisp/gnus-ems.el Sun Aug 27 08:34:28 1995 *************** *** 124,130 **** (setq gnus-easymenu 'auc-menu) (or (memq 'underline (list-faces)) ! (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! --- 124,131 ---- (setq gnus-easymenu 'auc-menu) (or (memq 'underline (list-faces)) ! (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! *** pub/dgnus/lisp/gnus-msg.el Sat Aug 26 03:56:12 1995 --- dgnus/lisp/gnus-msg.el Sun Aug 27 08:34:30 1995 *************** *** 226,231 **** --- 226,234 ---- (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,658 **** --- 656,662 ---- ;; 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"))) *** pub/dgnus/lisp/gnus-uu.el Sat Aug 26 03:56:12 1995 --- dgnus/lisp/gnus-uu.el Sat Aug 26 06:07:38 1995 *************** *** 1601,1607 **** 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-message-id nil) (defvar gnus-uu-post-inserted-file-name nil) (defvar gnus-uu-winconf-post-news nil) --- 1601,1607 ---- beginning of the first article, which will be numbered (1/x). Default is t.") ! (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) *** pub/dgnus/lisp/gnus-vm.el Sat Aug 26 03:56:13 1995 --- dgnus/lisp/gnus-vm.el Sun Aug 27 08:34:29 1995 *************** *** 70,77 **** ;; insert a newline, otherwise the last line gets lost (goto-char (point-max)) (insert "\n") ! (let (vm-use-toolbar vm-use-menus) ! (vm-mode)) tmp-folder)) (defun gnus-summary-save-article-vm (&optional arg) --- 70,76 ---- ;; insert a newline, otherwise the last line gets lost (goto-char (point-max)) (insert "\n") ! (vm-mode) tmp-folder)) (defun gnus-summary-save-article-vm (&optional arg) *** pub/dgnus/lisp/gnus.el Sat Aug 26 03:56:13 1995 --- dgnus/lisp/gnus.el Sat Aug 26 07:29:02 1995 *************** *** 1343,1349 **** "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" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1343,1349 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "(ding) Gnus v0.99.24" "Version number for this version of Gnus.") (defvar gnus-info-nodes *** pub/dgnus/lisp/nnvirtual.el Sat Aug 26 03:56:13 1995 --- dgnus/lisp/nnvirtual.el Sun Aug 27 09:04:40 1995 *************** *** 334,340 **** (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 - ;; 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 --- 334,340 ---- (if (null active) () ;; And then we do the mapping for this component group. If ! ;; 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,349 **** ;; 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)) (let ((itreads (if (not (listp (cdr ireads))) (setq ireads (list (cons (car ireads) (cdr ireads)))) --- 343,349 ---- ;; 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)) (let ((itreads (if (not (listp (cdr ireads))) (setq ireads (list (cons (car ireads) (cdr ireads)))) *************** *** 359,366 **** (while itreads (setcar (or (and (numberp (car itreads)) itreads) (car itreads)) ! (+ (- (or (and (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))) --- 359,370 ---- (while itreads (setcar (or (and (numberp (car itreads)) itreads) (car itreads)) ! (+ (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,379 **** (setq groups (cdr groups)))) (setq nnvirtual-current-mapping (nreverse nnvirtual-current-mapping)) ! (gnus-sethash group (cons 1 offset) gnus-active-hashtb) (setcar (nthcdr 2 info) reads) ;; Then we deal with the marks. --- 377,385 ---- (setq groups (cdr groups)))) (setq nnvirtual-current-mapping (nreverse nnvirtual-current-mapping)) ! ;; 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. *** pub/dgnus/lisp/ChangeLog Sat Aug 26 03:56:14 1995 --- dgnus/lisp/ChangeLog Sun Aug 27 08:34:25 1995 *************** *** 1,5 **** --- 1,23 ---- + Sun Aug 27 05:05:05 1995 Lars Magne Ingebrigtsen + + * 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 + * 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,66 **** Fri Aug 25 05:44:07 1995 Lars Magne Ingebrigtsen ! * gnus.el: 0.99.20 is released. Fri Aug 25 02:57:19 1995 Lars Magne Ingebrigtsen --- 78,84 ---- Fri Aug 25 05:44:07 1995 Lars Magne Ingebrigtsen ! * gnus.el: 0.99.20-22 is released. Fri Aug 25 02:57:19 1995 Lars Magne Ingebrigtsen *** pub/dgnus/texi/gnus.texi Sat Aug 26 03:56:14 1995 --- dgnus/texi/gnus.texi Sat Aug 26 06:07:41 1995 *************** *** 1015,1022 **** 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 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 --- 1015,1022 ---- have arrived most recently will be fetched. @vindex gnus-select-group-hook ! @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