*** pub/dgnus/lisp/gnus-msg.el Sat Dec 9 09:55:07 1995 --- dgnus/lisp/gnus-msg.el Sat Feb 3 15:45:06 1996 *************** *** 1559,1565 **** subject message-of nil gnus-article-copy nil) (auto-save-mode auto-save-default) ! (use-local-map (copy-keymap mail-mode-map)) (local-set-key "\C-c\C-c" 'gnus-mail-send-and-exit) (if (and follow-to (listp follow-to)) --- 1559,1565 ---- subject message-of nil gnus-article-copy nil) (auto-save-mode auto-save-default) ! (use-local-map (copy-keymap (current-local-map))) (local-set-key "\C-c\C-c" 'gnus-mail-send-and-exit) (if (and follow-to (listp follow-to)) *** pub/dgnus/lisp/gnus.el Sat Dec 9 09:55:09 1995 --- dgnus/lisp/gnus.el Sun Feb 4 15:34:27 1996 *************** *** 973,985 **** %S The subject") ! (defvar gnus-summary-mode-line-format "Gnus %G/%A %Z" "*The format specification for the summary mode line.") ! (defvar gnus-article-mode-line-format "Gnus %G/%A %S" "*The format specification for the article mode line.") ! (defvar gnus-group-mode-line-format "Gnus List of groups {%M:%S} " "*The format specification for the group mode line.") (defvar gnus-valid-select-methods --- 973,985 ---- %S The subject") ! (defvar gnus-summary-mode-line-format "Gnus: %b [%A] %Z" "*The format specification for the summary mode line.") ! (defvar gnus-article-mode-line-format "Gnus: %b %S" "*The format specification for the article mode line.") ! (defvar gnus-group-mode-line-format "Gnus: %b {%M:%S} " "*The format specification for the group mode line.") (defvar gnus-valid-select-methods *************** *** 1013,1019 **** If this variable is nil, screen refresh may be quicker.") ;; Added by Keinonen Kari . ! (defvar gnus-mode-non-string-length 21 "*Max length of mode-line non-string contents. If this is nil, Gnus will take space as is needed, leaving the rest of the modeline intact.") --- 1013,1019 ---- If this variable is nil, screen refresh may be quicker.") ;; Added by Keinonen Kari . ! (defvar gnus-mode-non-string-length nil "*Max length of mode-line non-string contents. If this is nil, Gnus will take space as is needed, leaving the rest of the modeline intact.") *************** *** 1339,1349 **** --- 1339,1351 ---- (list ?S 'subject ?s) (list ?e 'unselected ?d) (list ?u 'user-defined ?s) + (list ?b 'buffer-name ?s) (list ?s '(gnus-current-score-file-nondirectory) ?s))) (defconst gnus-group-mode-line-format-alist (list (list ?S 'news-server ?s) (list ?M 'news-method ?s) + (list ?b '(buffer-name) ?s) (list ?u 'user-defined ?s))) (defvar gnus-have-read-active-file nil) *************** *** 4254,4260 **** (defun gnus-group-make-help-group () "Create the Gnus documentation group." (interactive) ! (let ((path (cons (concat installation-directory "etc/") load-path)) (name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help"))) file) (and (gnus-gethash name gnus-newsrc-hashtb) --- 4256,4264 ---- (defun gnus-group-make-help-group () "Create the Gnus documentation group." (interactive) ! (let ((path (if installation-directory ! (cons (concat installation-directory "etc/") load-path) ! (cons data-directory load-path))) (name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help"))) file) (and (gnus-gethash name gnus-newsrc-hashtb) *************** *** 6976,6981 **** --- 6980,6989 ---- (let* ((mformat (if (eq where 'article) gnus-article-mode-line-format-spec gnus-summary-mode-line-format-spec)) + (buffer-name (if (eq where 'article) + (buffer-name + (get-buffer gnus-article-buffer)) + (buffer-name))) (group-name gnus-newsgroup-name) (article-number (or gnus-current-article 0)) (unread (- (length gnus-newsgroup-unreads) *************** *** 9769,9775 **** (gnus-set-global-variables) (let ((buffer-read-only nil) (orig-article ! (progn (gnus-summary-search-forward t) (gnus-summary-article-number))) (marks (concat "^[" marks "]"))) --- 9777,9783 ---- (gnus-set-global-variables) (let ((buffer-read-only nil) (orig-article ! (let ((gnus-summary-check-current t)) (gnus-summary-search-forward t) (gnus-summary-article-number))) (marks (concat "^[" marks "]"))) *************** *** 11938,11943 **** --- 11946,11953 ---- (nth 1 method) accept-function last))) (defun gnus-request-accept-article (group &optional last) + (goto-char (point-max)) + (or (bolp) (insert "\n")) (let ((func (if (symbolp group) group (car (gnus-find-method-for-group group))))) (funcall (intern (format "%s-request-accept-article" func)) *************** *** 12697,12702 **** --- 12707,12718 ---- (while (and dormant (< (car dormant) (car active))) (setq dormant (cdr dormant))) (setq unread (sort (append unselected unread) '<)) + ;; Weed out duplicates. + (let ((un unread)) + (while (cdr un) + (if (eq (car un) (car (cdr un))) + (setcdr un (cdr (cdr un))) + (setq un (cdr un))))) ;; Compute the ranges of read articles by looking at the list of ;; unread articles. (while unread *************** *** 13395,13400 **** --- 13411,13418 ---- gnus-current-startup-file))) ;; Quickly loadable .newsrc. (set-buffer (get-buffer-create " *Gnus-newsrc*")) + (make-local-variable 'version-control) + (setq version-control 'never) (setq buffer-file-name (concat gnus-current-startup-file ".eld")) (gnus-add-current-to-buffer-list) (buffer-disable-undo (current-buffer)) *************** *** 13469,13474 **** --- 13487,13494 ---- (if ranges (insert ",")))))) (insert "\n"))) (setq newsrc (cdr newsrc))) + (make-local-variable 'version-control) + (setq version-control 'never) ;; It has been reported that sometime the modtime on the .newsrc ;; file seems to be off. We really do want to overwrite it, so ;; we clear the modtime here before saving. It's a bit odd, *** pub/dgnus/lisp/nnkiboze.el Sat Dec 9 09:55:09 1995 --- dgnus/lisp/nnkiboze.el Tue Jan 16 20:13:05 1996 *************** *** 145,151 **** (defun nnkiboze-close-group (group &optional server) (nnkiboze-possibly-change-newsgroups group) ;; Remove NOV lines of articles that are marked as read. ! (if (not (file-exists-p (nnkiboze-nov-file-name))) () (save-excursion (let ((unreads gnus-newsgroup-unreads) --- 145,152 ---- (defun nnkiboze-close-group (group &optional server) (nnkiboze-possibly-change-newsgroups group) ;; Remove NOV lines of articles that are marked as read. ! (if (or (not (file-exists-p (nnkiboze-nov-file-name))) ! (not (eq major-mode 'gnus-summary-mode))) () (save-excursion (let ((unreads gnus-newsgroup-unreads) *** pub/dgnus/lisp/nntp.el Sat Dec 9 09:55:10 1995 --- dgnus/lisp/nntp.el Tue Jan 16 20:01:05 1996 *************** *** 363,369 **** ;; check that the physical server is opened. (if (or (nntp-server-opened server) connectionless) ! () (if (member nntp-address nntp-timeout-servers) nil ;; We open a connection to the physical nntp server. --- 363,369 ---- ;; check that the physical server is opened. (if (or (nntp-server-opened server) connectionless) ! t (if (member nntp-address nntp-timeout-servers) nil ;; We open a connection to the physical nntp server. *************** *** 1181,1187 **** (sleep-for 1) (message "")) (condition-case errorcode ! (accept-process-output nntp-server-process) (error (cond ((string-equal "select error: Invalid argument" (nth 1 errorcode)) --- 1181,1187 ---- (sleep-for 1) (message "")) (condition-case errorcode ! (accept-process-output nntp-server-process 1) (error (cond ((string-equal "select error: Invalid argument" (nth 1 errorcode)) *** pub/dgnus/lisp/ChangeLog Sat Dec 9 09:55:15 1995 --- dgnus/lisp/ChangeLog Sun Feb 4 15:39:19 1996 *************** *** 1,3 **** --- 1,28 ---- + Sun Feb 4 15:33:40 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-update-read-articles): Remove duplicated article + numbers. + (gnus-request-accept-article): Make sure there's a newline at the + end of the buffer. + + Sat Feb 3 14:51:36 1996 Lars Magne Ingebrigtsen + + * gnus-msg.el (gnus-mail-reply-using-mail): Use the local keymap + instead of `mail-mode-map'. + + * gnus.el (gnus-gnus-to-newsrc-format): Turn off version-control + before saving the .newsrc file. + + Tue Jan 16 23:47:24 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-group-make-help-group): Check whether + `installation-directory' is nil before using it. + + Tue Jan 16 23:33:21 1996 Lars Magne Ingebrigtsen + + * nntp.el (nntp-accept-response): Add a timeout parameter to + `accept-process-output'. + Tue Dec 5 04:05:27 1995 Lars Magne Ingebrigtsen * gnus.el (gnus-summary-set-process-mark): Make sure each article