*** pub/rgnus/lisp/gnus-score.el Sun Apr 27 12:40:53 1997 --- rgnus/lisp/gnus-score.el Thu May 1 18:03:06 1997 *************** *** 526,532 **** (gnus-score-kill-help-buffer) (unless (setq entry (assq (downcase hchar) char-to-header)) ! (if mimic (error "%c %c" prefix hchar) (error ""))) (when (/= (downcase hchar) hchar) ;; This was a majuscule, so we end reading and set the defaults. --- 526,533 ---- (gnus-score-kill-help-buffer) (unless (setq entry (assq (downcase hchar) char-to-header)) ! (if mimic (error "%c %c" prefix hchar) ! (error "Illegal header type"))) (when (/= (downcase hchar) hchar) ;; This was a majuscule, so we end reading and set the defaults. *************** *** 558,564 **** (gnus-score-kill-help-buffer) (unless (setq type (nth 1 (assq (downcase tchar) legal-types))) ! (if mimic (error "%c %c" prefix hchar) (error "")))) (when (/= (downcase tchar) tchar) ;; It was a majuscule, so we end reading and use the default. --- 559,566 ---- (gnus-score-kill-help-buffer) (unless (setq type (nth 1 (assq (downcase tchar) legal-types))) ! (if mimic (error "%c %c" prefix hchar) ! (error "Illegal match type")))) (when (/= (downcase tchar) tchar) ;; It was a majuscule, so we end reading and use the default. *************** *** 591,597 **** (error "You rang?")) (if mimic (error "%c %c %c %c" prefix hchar tchar pchar) ! (error "")))) ;; Always kill the score help buffer. (gnus-score-kill-help-buffer)) --- 593,599 ---- (error "You rang?")) (if mimic (error "%c %c %c %c" prefix hchar tchar pchar) ! (error "Illegal match duration")))) ;; Always kill the score help buffer. (gnus-score-kill-help-buffer)) *************** *** 2450,2457 **** (if (looking-at "not.") (progn (setq not-match t) ! (setq regexp (concat "^" (buffer-substring 5 (point-max))))) ! (setq regexp (concat "^" (buffer-substring 1 (point-max)))) (setq not-match nil)) ;; Finally - if this resulting regexp matches the group name, ;; we add this score file to the list of score files --- 2452,2459 ---- (if (looking-at "not.") (progn (setq not-match t) ! (setq regexp (concat "^" (buffer-substring 5 (point-max)) "$"))) ! (setq regexp (concat "^" (buffer-substring 1 (point-max)) "$")) (setq not-match nil)) ;; Finally - if this resulting regexp matches the group name, ;; we add this score file to the list of score files *** pub/rgnus/lisp/gnus-sum.el Sun Apr 27 12:40:54 1997 --- rgnus/lisp/gnus-sum.el Thu May 1 18:03:07 1997 *************** *** 4851,4856 **** --- 4851,4857 ---- (let* ((group gnus-newsgroup-name) (quit-config (gnus-group-quit-config gnus-newsgroup-name)) (mode major-mode) + (group-point nil) (buf (current-buffer))) (run-hooks 'gnus-summary-prepare-exit-hook) ;; If we have several article buffers, we kill them at exit. *************** *** 4877,4882 **** --- 4878,4884 ---- (run-hooks 'gnus-summary-exit-hook) (unless quit-config (gnus-group-next-unread-group 1)) + (setq group-point (point)) (if temporary nil ;Nothing to do. ;; If we have several article buffers, we kill them at exit. *************** *** 4906,4913 **** ;; Clear the current group name. (if (not quit-config) (progn ! (gnus-group-jump-to-group group) ! (gnus-group-next-unread-group 1) (gnus-configure-windows 'group 'force)) (gnus-handle-ephemeral-exit quit-config)) (unless quit-config --- 4908,4914 ---- ;; Clear the current group name. (if (not quit-config) (progn ! (goto-char group-point) (gnus-configure-windows 'group 'force)) (gnus-handle-ephemeral-exit quit-config)) (unless quit-config *** pub/rgnus/lisp/gnus-topic.el Sun Apr 6 21:51:40 1997 --- rgnus/lisp/gnus-topic.el Thu May 1 18:03:08 1997 *************** *** 547,558 **** (when (and (eq major-mode 'gnus-group-mode) gnus-topic-mode) (let ((group (gnus-group-group-name)) (buffer-read-only nil)) (when (and group (gnus-get-info group) (gnus-topic-goto-topic (gnus-current-topic))) (gnus-topic-update-topic-line (gnus-group-topic-name)) ! (gnus-group-goto-group group) (gnus-group-position-point))))) (defun gnus-topic-goto-missing-group (group) --- 547,560 ---- (when (and (eq major-mode 'gnus-group-mode) gnus-topic-mode) (let ((group (gnus-group-group-name)) + (m (point-marker)) (buffer-read-only nil)) (when (and group (gnus-get-info group) (gnus-topic-goto-topic (gnus-current-topic))) (gnus-topic-update-topic-line (gnus-group-topic-name)) ! (goto-char m) ! (set-marker m nil) (gnus-group-position-point))))) (defun gnus-topic-goto-missing-group (group) *** pub/rgnus/lisp/gnus-xmas.el Sun Apr 27 23:21:43 1997 --- rgnus/lisp/gnus-xmas.el Thu May 1 18:03:08 1997 *************** *** 29,154 **** (defvar menu-bar-mode (featurep 'menubar)) (require 'messagexmas) - (defun gnus-xmas-redefine () - "Redefine lots of Gnus functions for XEmacs." - (fset 'gnus-summary-set-display-table 'gnus-xmas-summary-set-display-table) - (fset 'gnus-visual-turn-off-edit-menu 'identity) - (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter) - (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open) - (fset 'gnus-article-push-button 'gnus-xmas-article-push-button) - (fset 'gnus-article-add-button 'gnus-xmas-article-add-button) - (fset 'gnus-window-top-edge 'gnus-xmas-window-top-edge) - (fset 'gnus-read-event-char 'gnus-xmas-read-event-char) - (fset 'gnus-group-startup-message 'gnus-xmas-group-startup-message) - (fset 'gnus-tree-minimize 'gnus-xmas-tree-minimize) - (fset 'gnus-appt-select-lowest-window - 'gnus-xmas-appt-select-lowest-window) - (fset 'gnus-mail-strip-quoted-names 'gnus-xmas-mail-strip-quoted-names) - (fset 'gnus-character-to-event 'character-to-event) - (fset 'gnus-mode-line-buffer-identification - 'gnus-xmas-mode-line-buffer-identification) - (fset 'gnus-key-press-event-p 'key-press-event-p) - (fset 'gnus-region-active-p 'region-active-p) - - (add-hook 'gnus-group-mode-hook 'gnus-xmas-group-menu-add) - (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add) - (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add) - (add-hook 'gnus-score-mode-hook 'gnus-xmas-score-menu-add) - - (add-hook 'gnus-pick-mode-hook 'gnus-xmas-pick-menu-add) - (add-hook 'gnus-topic-mode-hook 'gnus-xmas-topic-menu-add) - (add-hook 'gnus-tree-mode-hook 'gnus-xmas-tree-menu-add) - (add-hook 'gnus-binary-mode-hook 'gnus-xmas-binary-menu-add) - (add-hook 'gnus-grouplens-mode-hook 'gnus-xmas-grouplens-menu-add) - (add-hook 'gnus-server-mode-hook 'gnus-xmas-server-menu-add) - (add-hook 'gnus-browse-mode-hook 'gnus-xmas-browse-menu-add) - - (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar) - (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar) - - (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off) - - (when (and (<= emacs-major-version 19) - (<= emacs-minor-version 13)) - (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty) - ".")) - (fset 'gnus-highlight-selected-summary - 'gnus-xmas-highlight-selected-summary) - (fset 'gnus-group-remove-excess-properties - 'gnus-xmas-group-remove-excess-properties) - (fset 'gnus-topic-remove-excess-properties - 'gnus-xmas-topic-remove-excess-properties) - (fset 'gnus-mode-line-buffer-identification 'identity) - (unless (boundp 'shell-command-switch) - (setq shell-command-switch "-c")))) - - (defun gnus-xmas-define () - (setq gnus-mouse-2 [button2]) - - (unless (memq 'underline (face-list)) - (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! - (unless (face-differs-from-default-p 'underline) - (funcall (intern "set-face-underline-p") 'underline t)) - - (cond - ((fboundp 'char-or-char-int-p) - ;; Handle both types of marks for XEmacs-20.x. - (fset 'gnus-characterp 'char-or-char-int-p)) - ;; V19 of XEmacs, probably. - (t - (fset 'gnus-characterp 'characterp))) - - (fset 'gnus-make-overlay 'make-extent) - (fset 'gnus-overlay-put 'set-extent-property) - (fset 'gnus-move-overlay 'gnus-xmas-move-overlay) - (fset 'gnus-overlay-end 'extent-end-position) - (fset 'gnus-extent-detached-p 'extent-detached-p) - (fset 'gnus-add-text-properties 'gnus-xmas-add-text-properties) - (fset 'gnus-put-text-property 'gnus-xmas-put-text-property) - - (require 'text-props) - (if (and (<= emacs-major-version 19) - (< emacs-minor-version 14)) - (fset 'gnus-set-text-properties 'gnus-xmas-set-text-properties)) - - (when (fboundp 'turn-off-scroll-in-place) - (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place)) - - (unless (boundp 'standard-display-table) - (setq standard-display-table nil)) - - (defvar gnus-mouse-face-prop 'highlight) - - (unless (fboundp 'encode-time) - (defun encode-time (sec minute hour day month year &optional zone) - (let ((seconds - (gnus-xmas-seconds-since-epoch - (timezone-make-arpa-date - year month day (timezone-make-time-string hour minute sec) - zone)))) - (list (floor (/ seconds (expt 2 16))) - (round (mod seconds (expt 2 16))))))) - - (defun gnus-byte-code (func) - "Return a form that can be `eval'ed based on FUNC." - (let ((fval (symbol-function func))) - (if (compiled-function-p fval) - (list 'funcall fval) - (cons 'progn (cdr (cdr fval)))))) - - (fset 'gnus-x-color-values - (if (fboundp 'x-color-values) - 'x-color-values - (lambda (color) - (color-instance-rgb-components - (make-color-instance color)))))) - - (require 'gnus-art) ;; Circular - (defgroup gnus-xmas nil "XEmacsoid support for Gnus" :group 'gnus) --- 29,34 ---- *************** *** 525,530 **** --- 405,529 ---- (* (nth 1 ttime) 60) (* (float (nth 0 ttime)) 60 60) (* (float tday) 60 60 24)))) + + (defun gnus-xmas-define () + (setq gnus-mouse-2 [button2]) + + (unless (memq 'underline (face-list)) + (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! + (unless (face-differs-from-default-p 'underline) + (funcall (intern "set-face-underline-p") 'underline t)) + + (cond + ((fboundp 'char-or-char-int-p) + ;; Handle both types of marks for XEmacs-20.x. + (fset 'gnus-characterp 'char-or-char-int-p)) + ;; V19 of XEmacs, probably. + (t + (fset 'gnus-characterp 'characterp))) + + (fset 'gnus-make-overlay 'make-extent) + (fset 'gnus-overlay-put 'set-extent-property) + (fset 'gnus-move-overlay 'gnus-xmas-move-overlay) + (fset 'gnus-overlay-end 'extent-end-position) + (fset 'gnus-extent-detached-p 'extent-detached-p) + (fset 'gnus-add-text-properties 'gnus-xmas-add-text-properties) + (fset 'gnus-put-text-property 'gnus-xmas-put-text-property) + + (require 'text-props) + (if (and (<= emacs-major-version 19) + (< emacs-minor-version 14)) + (fset 'gnus-set-text-properties 'gnus-xmas-set-text-properties)) + + (when (fboundp 'turn-off-scroll-in-place) + (add-hook 'gnus-article-mode-hook 'turn-off-scroll-in-place)) + + (unless (boundp 'standard-display-table) + (setq standard-display-table nil)) + + (defvar gnus-mouse-face-prop 'highlight) + + (unless (fboundp 'encode-time) + (defun encode-time (sec minute hour day month year &optional zone) + (let ((seconds + (gnus-xmas-seconds-since-epoch + (timezone-make-arpa-date + year month day (timezone-make-time-string hour minute sec) + zone)))) + (list (floor (/ seconds (expt 2 16))) + (round (mod seconds (expt 2 16))))))) + + (defun gnus-byte-code (func) + "Return a form that can be `eval'ed based on FUNC." + (let ((fval (symbol-function func))) + (if (compiled-function-p fval) + (list 'funcall fval) + (cons 'progn (cdr (cdr fval)))))) + + (fset 'gnus-x-color-values + (if (fboundp 'x-color-values) + 'x-color-values + (lambda (color) + (color-instance-rgb-components + (make-color-instance color)))))) + + (defun gnus-xmas-redefine () + "Redefine lots of Gnus functions for XEmacs." + (fset 'gnus-summary-set-display-table 'gnus-xmas-summary-set-display-table) + (fset 'gnus-visual-turn-off-edit-menu 'identity) + (fset 'gnus-summary-recenter 'gnus-xmas-summary-recenter) + (fset 'gnus-extent-start-open 'gnus-xmas-extent-start-open) + (fset 'gnus-article-push-button 'gnus-xmas-article-push-button) + (fset 'gnus-article-add-button 'gnus-xmas-article-add-button) + (fset 'gnus-window-top-edge 'gnus-xmas-window-top-edge) + (fset 'gnus-read-event-char 'gnus-xmas-read-event-char) + (fset 'gnus-group-startup-message 'gnus-xmas-group-startup-message) + (fset 'gnus-tree-minimize 'gnus-xmas-tree-minimize) + (fset 'gnus-appt-select-lowest-window + 'gnus-xmas-appt-select-lowest-window) + (fset 'gnus-mail-strip-quoted-names 'gnus-xmas-mail-strip-quoted-names) + (fset 'gnus-character-to-event 'character-to-event) + (fset 'gnus-mode-line-buffer-identification + 'gnus-xmas-mode-line-buffer-identification) + (fset 'gnus-key-press-event-p 'key-press-event-p) + (fset 'gnus-region-active-p 'region-active-p) + + (add-hook 'gnus-group-mode-hook 'gnus-xmas-group-menu-add) + (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add) + (add-hook 'gnus-article-mode-hook 'gnus-xmas-article-menu-add) + (add-hook 'gnus-score-mode-hook 'gnus-xmas-score-menu-add) + + (add-hook 'gnus-pick-mode-hook 'gnus-xmas-pick-menu-add) + (add-hook 'gnus-topic-mode-hook 'gnus-xmas-topic-menu-add) + (add-hook 'gnus-tree-mode-hook 'gnus-xmas-tree-menu-add) + (add-hook 'gnus-binary-mode-hook 'gnus-xmas-binary-menu-add) + (add-hook 'gnus-grouplens-mode-hook 'gnus-xmas-grouplens-menu-add) + (add-hook 'gnus-server-mode-hook 'gnus-xmas-server-menu-add) + (add-hook 'gnus-browse-mode-hook 'gnus-xmas-browse-menu-add) + + (add-hook 'gnus-group-mode-hook 'gnus-xmas-setup-group-toolbar) + (add-hook 'gnus-summary-mode-hook 'gnus-xmas-setup-summary-toolbar) + + (add-hook 'gnus-summary-mode-hook 'gnus-xmas-switch-horizontal-scrollbar-off) + + (when (and (<= emacs-major-version 19) + (<= emacs-minor-version 13)) + (setq gnus-article-x-face-too-ugly (when (eq (device-type) 'tty) + ".")) + (fset 'gnus-highlight-selected-summary + 'gnus-xmas-highlight-selected-summary) + (fset 'gnus-group-remove-excess-properties + 'gnus-xmas-group-remove-excess-properties) + (fset 'gnus-topic-remove-excess-properties + 'gnus-xmas-topic-remove-excess-properties) + (fset 'gnus-mode-line-buffer-identification 'identity) + (unless (boundp 'shell-command-switch) + (setq shell-command-switch "-c")))) + ;;; XEmacs logo and toolbar. *** pub/rgnus/lisp/gnus.el Sun Apr 27 23:21:43 1997 --- rgnus/lisp/gnus.el Thu May 1 18:03:08 1997 *************** *** 226,232 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.48" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 226,232 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.4.49" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/message.el Sun Apr 27 12:40:56 1997 --- rgnus/lisp/message.el Thu May 1 18:03:09 1997 *************** *** 1737,1744 **** (run-hooks 'message-send-hook) (message "Sending...") (let ((alist message-send-method-alist) elem sent) ! (while (setq elem (pop alist)) (when (and (or (not (funcall (cadr elem))) (and (or (not (memq (car elem) message-sent-message-via)) --- 1737,1746 ---- (run-hooks 'message-send-hook) (message "Sending...") (let ((alist message-send-method-alist) + (success t) elem sent) ! (while (and success ! (setq elem (pop alist))) (when (and (or (not (funcall (cadr elem))) (and (or (not (memq (car elem) message-sent-message-via)) *************** *** 1746,1754 **** (format "Already sent message via %s; resend? " (car elem)))) ! (funcall (caddr elem) arg)))) (setq sent t))) ! (when sent (message-do-fcc) ;;(when (fboundp 'mail-hist-put-headers-into-history) ;; (mail-hist-put-headers-into-history)) --- 1748,1756 ---- (format "Already sent message via %s; resend? " (car elem)))) ! (setq success (funcall (caddr elem) arg))))) (setq sent t))) ! (when (and success sent) (message-do-fcc) ;;(when (fboundp 'mail-hist-put-headers-into-history) ;; (mail-hist-put-headers-into-history)) *** pub/rgnus/lisp/nnmh.el Sun Apr 27 12:40:57 1997 --- rgnus/lisp/nnmh.el Thu May 1 18:03:09 1997 *************** *** 189,195 **** (defvar nnmh-toplev) (defun nnmh-request-list-1 (dir) ! (setq dir (file-truename (expand-file-name dir))) ;; Recurse down all directories. (let ((dirs (and (file-readable-p dir) (> (nth 1 (file-attributes (file-chase-links dir))) 2) --- 189,195 ---- (defvar nnmh-toplev) (defun nnmh-request-list-1 (dir) ! (setq dir (expand-file-name dir)) ;; Recurse down all directories. (let ((dirs (and (file-readable-p dir) (> (nth 1 (file-attributes (file-chase-links dir))) 2) *** pub/rgnus/lisp/ChangeLog Sun Apr 27 23:21:42 1997 --- rgnus/lisp/ChangeLog Thu May 1 18:03:06 1997 *************** *** 1,3 **** --- 1,37 ---- + Thu May 1 17:56:05 1997 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.4.49 is released. + + Sat Apr 19 16:13:03 1997 Erik Toubro Nielsen + + * gnus-sum.el (gnus-summary-exit): Returned to the wrong topic in + certain obscure cases if selected group occured in multiple + topics. + + * gnus-topic.el (gnus-topic-update-topic): Did not preserve point + on the same instance of a group if group occured in multiple + topics. Caused gnus-summary-exit to return to wrong topic if the + selected group was in more than one topic. + + Above two bugs happened only if the window configuration for + summary mode caused the group buffer not to be shown in a window. + + Thu May 1 14:28:20 1997 Lars Magne Ingebrigtsen + + * message.el (message-send): Would pretend to have sent. + + * nnmh.el (nnmh-request-list-1): Don't use truename. + + Sun Apr 27 15:16:16 1997 Steven L Baur + + * gnus-xmas.el: Undo previous change, and restore the version from + 5.4.46 (without the require 'gnus-art). + + Tue Apr 29 11:08:27 1997 Lars Magne Ingebrigtsen + + * gnus-score.el (gnus-summary-increase-score): Better error + messages. + Sun Apr 27 23:15:58 1997 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.4.48 is released. *** pub/rgnus/texi/gnus.texi Sun Apr 27 23:21:45 1997 --- rgnus/texi/gnus.texi Thu May 1 18:03:11 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.48 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.4.49 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 287,293 **** @tex @titlepage ! @title Gnus 5.4.48 Manual @author by Lars Magne Ingebrigtsen @page --- 287,293 ---- @tex @titlepage ! @title Gnus 5.4.49 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 323,329 **** spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.48. @end ifinfo --- 323,329 ---- spool or your mbox file. All at the same time, if you want to push your luck. ! This manual corresponds to Gnus 5.4.49. @end ifinfo *************** *** 11009,11015 **** (eval (ding))) @end lisp ! This example demonstrates absolutely everything about a score file. Even though this looks much like lisp code, nothing here is actually @code{eval}ed. The lisp reader is used to read this form, though, so it --- 11009,11016 ---- (eval (ding))) @end lisp ! This example demonstrates most score file elements. For a different ! approach, see @pxref{Advanced Scoring}. Even though this looks much like lisp code, nothing here is actually @code{eval}ed. The lisp reader is used to read this form, though, so it *** pub/rgnus/texi/message.texi Sun Apr 27 23:21:46 1997 --- rgnus/texi/message.texi Thu May 1 18:03:12 1997 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.48 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.4.49 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 39,45 **** @tex @titlepage ! @title Message 5.4.48 Manual @author by Lars Magne Ingebrigtsen @page --- 39,45 ---- @tex @titlepage ! @title Message 5.4.49 Manual @author by Lars Magne Ingebrigtsen @page *************** *** 79,85 **** * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.48. Message is distributed with the Gnus distribution bearing the same version number as this manual has. --- 79,85 ---- * Key Index:: List of Message mode keys. @end menu ! This manual corresponds to Message 5.4.49. Message is distributed with the Gnus distribution bearing the same version number as this manual has. *** pub/rgnus/texi/ChangeLog Sun Apr 27 12:41:00 1997 --- rgnus/texi/ChangeLog Thu May 1 18:03:12 1997 *************** *** 1,3 **** --- 1,7 ---- + Thu May 1 14:06:57 1997 Lars Magne Ingebrigtsen + + * gnus.texi (Score File Format): Fix. + Sun Apr 27 11:11:43 1997 Lars Magne Ingebrigtsen * gnus.texi (NNTP): Addition.