# HG changeset patch # User ShengHuo ZHU # Date 975971030 0 # Node ID 57a15e35e75ba0c406b0b23788ea39e22d4db6d2 # Parent 106595ce3db9a7b680f613e9e830a2d6fd1965e2 * gnus-msg.el (gnus-msg-mail): COMPOSEFUNC should return t if succeed. (gnus-setup-message): Remove a hack. * gnus-win.el (gnus-configure-windows): Make sure nntp-server-buffer is live. (gnus-remove-some-windows): switch-to-buffer -> set-buffer. * gnus-msg.el (gnus-summary-mail-forward): Fix typos in description. * gnus-msg.el (gnus-group-posting-charset-alist): No longer allow raw 8-bit in headers in dk.* newsgroups. diff -r 106595ce3db9 -r 57a15e35e75b lisp/gnus/ChangeLog --- a/lisp/gnus/ChangeLog Mon Dec 04 21:25:38 2000 +0000 +++ b/lisp/gnus/ChangeLog Mon Dec 04 23:03:50 2000 +0000 @@ -1,3 +1,21 @@ +2000-12-04 ShengHuo ZHU + + * gnus-msg.el (gnus-msg-mail): COMPOSEFUNC should return t if + succeed. + (gnus-setup-message): Remove a hack. + * gnus-win.el (gnus-configure-windows): Make sure + nntp-server-buffer is live. + (gnus-remove-some-windows): switch-to-buffer -> set-buffer. + +2000-12-04 Andreas Jaeger + + * gnus-msg.el (gnus-summary-mail-forward): Fix typos in description. + +2000-11-17 Per Abrahamsen + + * gnus-msg.el (gnus-group-posting-charset-alist): No longer allow + raw 8-bit in headers in dk.* newsgroups. + 2000-11-30 Dave Love * message.el (message-auto-save-directory): Use diff -r 106595ce3db9 -r 57a15e35e75b lisp/gnus/gnus-msg.el --- a/lisp/gnus/gnus-msg.el Mon Dec 04 21:25:38 2000 +0000 +++ b/lisp/gnus/gnus-msg.el Mon Dec 04 23:03:50 2000 +0000 @@ -102,7 +102,7 @@ "*Alist of styles to use when posting.") (defcustom gnus-group-posting-charset-alist - '(("^\\(no\\|fr\\|dk\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\|dk\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1)) + '(("^\\(no\\|fr\\)\\.[^,]*\\(,[ \t\n]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-1 (iso-8859-1)) ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ \t\n]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r)) (message-this-is-mail nil nil) (message-this-is-news nil t)) @@ -202,11 +202,6 @@ ;; "c" gnus-summary-send-draft "r" gnus-summary-resend-message) -;;;###autoload -(define-mail-user-agent 'gnus-user-agent - 'gnus-msg-mail 'message-send-and-exit - 'message-kill-buffer 'message-send-hook) - ;;; Internal functions. (defvar gnus-article-reply nil) @@ -237,12 +232,9 @@ (set (make-local-variable 'gnus-newsgroup-name) ,group) (gnus-run-hooks 'gnus-message-setup-hook) (if (eq major-mode 'message-mode) - ;; Make mml-buffer-list local. - ;; Restore global mml-buffer-list value as mbl. - ;; What a hack! -- Shenghuo - (let ((mml-buffer-list mml-buffer-list)) - (setq mml-buffer-list mbl) - (make-local-variable 'mml-buffer-list) + (let ((mbl1 mml-buffer-list)) + (setq mml-buffer-list mbl) ;; Global value + (set (make-local-variable 'mml-buffer-list) mbl1);; Local value (add-hook 'kill-buffer-hook 'mml-destroy-buffers t t)) (mml-destroy-buffers) (setq mml-buffer-list mbl))) @@ -250,6 +242,22 @@ (gnus-configure-windows ,config t) (set-buffer-modified-p nil)))) +;;;###autoload +(defun gnus-msg-mail (&rest args) + "Start editing a mail message to be sent. +Like `message-mail', but with Gnus paraphernalia, particularly the +Gcc: header for archiving purposes." + (interactive) + (gnus-setup-message 'message + (apply 'message-mail args)) + ;; COMPOSEFUNC should return t if succeed. Undocumented ??? + t) + +;;;###autoload +(define-mail-user-agent 'gnus-user-agent + 'gnus-msg-mail 'message-send-and-exit + 'message-kill-buffer 'message-send-hook) + (defun gnus-setup-posting-charset (group) (let ((alist gnus-group-posting-charset-alist) (group (or group "")) @@ -425,15 +433,7 @@ (gnus-cache-possibly-remove-article ,article nil nil nil t) (gnus-summary-mark-as-read ,article gnus-canceled-mark))))) message-send-actions)))) - -;;;###autoload -(defun gnus-msg-mail (&rest args) - "Start editing a mail message to be sent. -Like `message-mail', but with Gnus paraphernalia, particularly the -the Gcc: header for archiving purposes." - (interactive) - (gnus-setup-message 'message - (apply 'message-mail args))) + (defun gnus-copy-article-buffer (&optional article-buffer) @@ -701,9 +701,9 @@ "Forward the current message to another user. If ARG is nil, see `message-forward-as-mime' and `message-forward-show-mml'; if ARG is 1, decode the message and forward directly inline; -if ARG is 2, foward message as an rfc822 MIME section; +if ARG is 2, forward message as an rfc822 MIME section; if ARG is 3, decode message and forward as an rfc822 MIME section; -if ARG is 4, foward message directly inline; +if ARG is 4, forward message directly inline; otherwise, use flipped `message-forward-as-mime'. If POST, post instead of mail." (interactive "P") diff -r 106595ce3db9 -r 57a15e35e75b lisp/gnus/gnus-win.el --- a/lisp/gnus/gnus-win.el Mon Dec 04 21:25:38 2000 +0000 +++ b/lisp/gnus/gnus-win.el Mon Dec 04 23:03:50 2000 +0000 @@ -432,6 +432,10 @@ ;; put point in the assigned buffer, and do not touch the ;; winconf. (select-window all-visible) + + ;; Make sure "the other" buffer, nntp-server-buffer, is live. + (unless (gnus-buffer-live-p nntp-server-buffer) + (nnheader-init-server-buffer)) ;; Either remove all windows or just remove all Gnus windows. (let ((frame (selected-frame))) @@ -536,7 +540,7 @@ lowest-buf buf)))) (when lowest-buf (pop-to-buffer lowest-buf) - (switch-to-buffer nntp-server-buffer)) + (set-buffer nntp-server-buffer)) (mapcar (lambda (b) (delete-windows-on b t)) bufs)))) (provide 'gnus-win)