*** pub/sgnus/lisp/gnus-cite.el Tue May 7 00:28:41 1996 --- sgnus/lisp/gnus-cite.el Tue May 7 22:02:41 1996 *************** *** 227,233 **** (set-buffer gnus-article-buffer) (gnus-cite-parse-maybe) (let ((alist gnus-cite-prefix-alist) ! prefix numbers number marks) ;; Loop through citation prefixes. (while alist (setq numbers (pop alist) --- 227,233 ---- (set-buffer gnus-article-buffer) (gnus-cite-parse-maybe) (let ((alist gnus-cite-prefix-alist) ! prefix numbers number marks m) ;; Loop through citation prefixes. (while alist (setq numbers (pop alist) *************** *** 673,690 **** (defun gnus-cite-add-face (number prefix face) ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line. ! (if face ! (let ((inhibit-point-motion-hooks t) ! from to) ! (goto-line number) (forward-char (length prefix)) (skip-chars-forward " \t") (setq from (point)) (end-of-line 1) (skip-chars-backward " \t") (setq to (point)) ! (if (< from to) ! (gnus-overlay-put (gnus-make-overlay from to) 'face face))))) (defun gnus-cite-toggle (prefix) (save-excursion --- 673,691 ---- (defun gnus-cite-add-face (number prefix face) ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line. ! (when face ! (let ((inhibit-point-motion-hooks t) ! from to) ! (goto-line number) ! (unless (eobp) ;; Sometimes things become confused. (forward-char (length prefix)) (skip-chars-forward " \t") (setq from (point)) (end-of-line 1) (skip-chars-backward " \t") (setq to (point)) ! (when (< from to) ! (gnus-overlay-put (gnus-make-overlay from to) 'face face)))))) (defun gnus-cite-toggle (prefix) (save-excursion *** pub/sgnus/lisp/gnus-xmas.el Tue May 7 00:29:00 1996 --- sgnus/lisp/gnus-xmas.el Tue May 7 22:05:54 1996 *************** *** 577,592 **** "The summary buffer toolbar.") (defun gnus-xmas-setup-group-toolbar () ! (and gnus-use-toolbar ! (message-xmas-setup-toolbar gnus-group-toolbar nil "gnus") ! (set-specifier (symbol-value gnus-use-toolbar) ! (cons (current-buffer) gnus-group-toolbar)))) (defun gnus-xmas-setup-summary-toolbar () ! (and gnus-use-toolbar ! (message-xmas-setup-toolbar gnus-summary-toolbar nil "gnus") ! (set-specifier (symbol-value gnus-use-toolbar) ! (cons (current-buffer) gnus-summary-toolbar)))) ;; Written by Erik Naggum . ;; Saved by Steve Baur . --- 577,597 ---- "The summary buffer toolbar.") (defun gnus-xmas-setup-group-toolbar () ! (let (dir) ! (and gnus-use-toolbar ! (setq dir (message-xmas-setup-toolbar gnus-group-toolbar nil "gnus")) ! (file-exists-p (concat dir "gnus-group-catchup-current-icon-up.xpm")) ! (set-specifier (symbol-value gnus-use-toolbar) ! (cons (current-buffer) gnus-group-toolbar))))) (defun gnus-xmas-setup-summary-toolbar () ! (let (dir) ! (and gnus-use-toolbar ! (setq dir (message-xmas-setup-toolbar gnus-summary-toolbar ! nil "gnus")) ! (file-exists-p (concat dir "gnus-group-catchup-current-icon-up.xpm")) ! (set-specifier (symbol-value gnus-use-toolbar) ! (cons (current-buffer) gnus-summary-toolbar))))) ;; Written by Erik Naggum . ;; Saved by Steve Baur . *** pub/sgnus/lisp/gnus.el Tue May 7 00:29:03 1996 --- sgnus/lisp/gnus.el Tue May 7 23:57:57 1996 *************** *** 1715,1721 **** "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.82" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1715,1721 ---- "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") ! (defconst gnus-version "September Gnus v0.83" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 9330,9337 **** (goto-char pos) (gnus-delete-line) (gnus-data-remove (mail-header-number old-header)))) (gnus-rebuild-thread (mail-header-id header)) ! (gnus-summary-goto-subject (setq number (mail-header-number header)))) (when (and (numberp number) (> number 0)) ;; We have to update the boundaries even if we can't fetch the --- 9330,9342 ---- (goto-char pos) (gnus-delete-line) (gnus-data-remove (mail-header-number old-header)))) + (when old-header + (mail-header-set-number header (mail-header-number old-header))) + (setq gnus-newsgroup-sparse + (delq (mail-header-number header) gnus-newsgroup-sparse)) (gnus-rebuild-thread (mail-header-id header)) ! (gnus-summary-goto-subject (setq number (mail-header-number header)) ! nil t)) (when (and (numberp number) (> number 0)) ;; We have to update the boundaries even if we can't fetch the *************** *** 9747,9753 **** (run-hooks 'gnus-summary-prepare-exit-hook) ;; If we have several article buffers, we kill them at exit. (unless gnus-single-article-buffer - (gnus-kill-buffer gnus-article-buffer) (gnus-kill-buffer gnus-original-article-buffer) (setq gnus-article-current nil)) (when gnus-use-cache --- 9752,9757 ---- *************** *** 9765,9772 **** (gnus-group-jump-to-group group) (gnus-group-next-unread-group 1)) (run-hooks 'gnus-summary-exit-hook) - (unless gnus-single-article-buffer - (setq gnus-article-current nil)) (if temporary nil ;Nothing to do. ;; If we have several article buffers, we kill them at exit. --- 9769,9774 ---- *************** *** 9904,9909 **** --- 9906,9917 ---- (defun gnus-kill-or-deaden-summary (buffer) "Kill or deaden the summary BUFFER." + (when (and (buffer-name buffer) + (not gnus-single-article-buffer)) + (save-excursion + (set-buffer buffer) + (gnus-kill-buffer gnus-article-buffer) + (gnus-kill-buffer gnus-original-article-buffer))) (cond (gnus-kill-summary-on-exit (when (and gnus-use-trees (and (get-buffer buffer) *************** *** 10118,10125 **** (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (run-hooks 'gnus-select-article-hook) ! (gnus-summary-recenter) ! (gnus-summary-goto-subject article) (when gnus-use-trees (gnus-possibly-generate-tree article) (gnus-highlight-selected-tree article)) --- 10126,10133 ---- (funcall gnus-summary-display-article-function article all-header) (gnus-article-prepare article all-header)) (run-hooks 'gnus-select-article-hook) ! (gnus-summary-recenter) gnus-current-article ! (gnus-summary-goto-subject gnus-current-article) (when gnus-use-trees (gnus-possibly-generate-tree article) (gnus-highlight-selected-tree article)) *************** *** 11130,11135 **** --- 11138,11144 ---- gnus-break-pages gnus-visual) (gnus-summary-select-article nil 'force))) + (gnus-summary-goto-subject gnus-current-article) ; (gnus-configure-windows 'article) (gnus-summary-position-point)) *************** *** 13396,13402 **** (setq do-update-line article) (setq article (mail-header-id header)) (let ((gnus-override-method gnus-refer-article-method)) ! (gnus-read-header article))) ((vectorp header) ;; It's a real article. (setq article (mail-header-id header))) --- 13405,13413 ---- (setq do-update-line article) (setq article (mail-header-id header)) (let ((gnus-override-method gnus-refer-article-method)) ! (gnus-read-header article)) ! (setq gnus-newsgroup-sparse ! (delq article gnus-newsgroup-sparse))) ((vectorp header) ;; It's a real article. (setq article (mail-header-id header))) *************** *** 13471,13482 **** ;; Update sparse articles. (when do-update-line ! (save-excursion (set-buffer gnus-summary-buffer) (gnus-summary-update-article do-update-line) ! (gnus-summary-goto-subject do-update-line) (set-window-point (get-buffer-window (current-buffer) t) ! (point))))))) (defun gnus-read-header (id &optional header) "Read the headers of article ID and enter them into the Gnus system." --- 13482,13494 ---- ;; Update sparse articles. (when do-update-line ! (let ((buf (current-buffer))) (set-buffer gnus-summary-buffer) (gnus-summary-update-article do-update-line) ! (gnus-summary-goto-subject do-update-line nil t) (set-window-point (get-buffer-window (current-buffer) t) ! (point)) ! (set-buffer buf)))))) (defun gnus-read-header (id &optional header) "Read the headers of article ID and enter them into the Gnus system." *** pub/sgnus/lisp/message-xmas.el Tue May 7 00:29:03 1996 --- sgnus/lisp/message-xmas.el Tue May 7 20:06:25 1996 *************** *** 96,107 **** (set-specifier (symbol-value message-use-toolbar) (cons (current-buffer) message-toolbar)))) - (defun message-mode-menu (event) - (interactive "e") - (select-window (event-window event)) - (let ((popup-menu-titles nil)) - (popup-menu 'message-mode-menu))) - (provide 'message-xmas) ;;; message-xmas.el ends here --- 96,101 ---- *** pub/sgnus/lisp/message.el Tue May 7 00:29:07 1996 --- sgnus/lisp/message.el Tue May 7 20:06:27 1996 *************** *** 34,39 **** --- 34,40 ---- (require 'mail-header) (require 'nnheader) (require 'timezone) + (require 'easymenu) ;;;###autoload (defvar message-fcc-handler-function 'rmail-output *************** *** 376,409 **** (defvar message-sent-hook nil "Hook run after sending messages.") - (if (string-match "XEmacs\\|Lucid" emacs-version) - (defvar message-mode-menu - '("Send Message" - "Go to Field:" - "----" - ["To:" message-goto-to t] - ["Subject:" message-goto-subject t] - ["Summary:" message-goto-summary t] - ["Keywords:" message-goto-keywords t] - ["Newsgroups:" message-goto-newsgroups t] - ["Followup-To:" message-goto-followup-to t] - ["Distribution:" message-goto-distribution t] - ["Body" message-goto-body t] - ["Signature" message-goto-signature t] - "----" - "Miscellaneous Commands:" - "----" - ["Sort Headers" message-sort-headers t] - ["Yank Original" message-yank-original t] - ["Fill Yanked Message" message-fill-yanked-message t] - ;; ["Insert Signature" news-reply-signature t] - ["Caesar (rot13) Message" message-caesar-buffer-body t] - "----" - ["Post Message" message-send-and-exit t] - ["Abort Message" message-dont-send t] - ) - "Buffer Menu for XEmacs.")) - ;;; Internal variables. ;;; Regexp matching the delimiter of messages in UNIX mail format --- 377,382 ---- *************** *** 699,714 **** (define-key message-mode-map "\C-c\C-c" 'message-send-and-exit) (define-key message-mode-map "\C-c\C-s" 'message-send) ! (define-key message-mode-map "\C-c\C-k" 'message-dont-send) ! (if (string-match "XEmacs\\|Lucid" emacs-version) ! (define-key message-mode-map 'button3 'message-mode-menu))) ! ! (defun message-make-menu-bar () ! (unless (boundp 'message-menu) ! (easy-menu-define ! message-menu message-mode-map "" ! '("Message" ! ["Fill Citation" message-fill-yanked-message t])))) ;;;###autoload (defun message-mode () --- 672,704 ---- (define-key message-mode-map "\C-c\C-c" 'message-send-and-exit) (define-key message-mode-map "\C-c\C-s" 'message-send) ! (define-key message-mode-map "\C-c\C-k" 'message-dont-send)) ! ! (easy-menu-define message-mode-menu message-mode-map ! "Message Menu." ! '("Message" ! "Go to Field:" ! "----" ! ["To:" message-goto-to t] ! ["Subject:" message-goto-subject t] ! ["Summary:" message-goto-summary t] ! ["Keywords:" message-goto-keywords t] ! ["Newsgroups:" message-goto-newsgroups t] ! ["Followup-To:" message-goto-followup-to t] ! ["Distribution:" message-goto-distribution t] ! ["Body" message-goto-body t] ! ["Signature" message-goto-signature t] ! "----" ! "Miscellaneous Commands:" ! "----" ! ["Sort Headers" message-sort-headers t] ! ["Yank Original" message-yank-original t] ! ["Fill Yanked Message" message-fill-yanked-message t] ! ;; ["Insert Signature" news-reply-signature t] ! ["Caesar (rot13) Message" message-caesar-buffer-body t] ! "----" ! ["Post Message" message-send-and-exit t] ! ["Abort Message" message-dont-send t])) ;;;###autoload (defun message-mode () *************** *** 774,779 **** --- 764,770 ---- (mail-hist-define-keys)) (when (string-match "XEmacs\\|Lucid" emacs-version) (message-setup-toolbar)) + (easy-menu-add message-mode-menu message-mode-map) (run-hooks 'text-mode-hook 'message-mode-hook)) *************** *** 2567,2573 **** (if (eq (following-char) (char-after (- (point) 2))) (delete-char -2)))))) ! ;; Support for Mouse menus (when (string-match "XEmacs\\|Lucid" emacs-version) (require 'message-xmas)) --- 2558,2564 ---- (if (eq (following-char) (char-after (- (point) 2))) (delete-char -2)))))) ! ;; Support for toolbar (when (string-match "XEmacs\\|Lucid" emacs-version) (require 'message-xmas)) *** pub/sgnus/lisp/nnml.el Tue May 7 00:29:14 1996 --- sgnus/lisp/nnml.el Tue May 7 23:41:38 1996 *************** *** 585,590 **** --- 585,591 ---- (unless active ;; Perhaps the active file was corrupt? See whether ;; there are any articles in this group. + (nnml-possibly-create-directory group) (nnml-possibly-change-directory group) (unless nnml-article-file-alist (setq nnml-article-file-alist *** pub/sgnus/lisp/ChangeLog Tue May 7 00:29:36 1996 --- sgnus/lisp/ChangeLog Tue May 7 23:57:59 1996 *************** *** 1,4 **** --- 1,43 ---- + Tue May 7 21:49:30 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-summary-insert-subject): Would change article + number. + (gnus-summary-display-article): Go to the right article when + fetching sparse articles. + + Sun Apr 28 21:53:44 1996 Per Abrahamsen + + * nnml.el (nnml-active-number): Create and change the directory + before using any of the variables that requires the directory to + be created and change. + + Tue May 7 22:06:04 1996 Lars Magne Ingebrigtsen + + * gnus-xmas.el (gnus-xmas-setup-group-toolbar): Would bug out on + missing etc. + + Tue May 7 18:21:59 1996 Lars Magne Ingebrigtsen + + * gnus.el (gnus-kill-or-deaden-summary): Kill multiple buffers + here. + + Tue May 7 16:52:08 1996 Lars Magne Ingebrigtsen + + * gnus-cite.el (gnus-cite-add-face): Would bug out in obscure + cases. + + Mon May 6 09:16:02 1996 Per Abrahamsen + + * message.el (message-mode-map): Do not bind button3. + (message-mode-menu): Use easymenu. + (message-mode): Call `easy-menu-add'. + (message-make-menu-bar): Deleted. + + * message-xmas.el (message-mode-menu): Deleted. + Mon May 6 20:51:43 1996 Lars Magne Ingebrigtsen + + * gnus.el: September Gnus v0.82 is released. * gnus-cite.el (gnus-dissect-cited-text): Sift single empty lines.