mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

* gnus-msg.el (gnus-msg-mail): COMPOSEFUNC should return t if

Browse Source 
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.
This commit is contained in:
ShengHuo ZHU 2000-12-04 23:03:50 +00:00
parent 0c68ce6f22
commit 25fc4fd5b8
3 changed files with 46 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/gnus/ChangeLog
View File

@ -1,3 +1,21 @@
2000-12-04 ShengHuo ZHU <zsh@cs.rochester.edu>
* 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 <aj@suse.de>
* gnus-msg.el (gnus-summary-mail-forward): Fix typos in description.
2000-11-17 Per Abrahamsen <abraham@dina.kvl.dk>
* gnus-msg.el (gnus-group-posting-charset-alist): No longer allow
raw 8-bit in headers in dk.* newsgroups.
2000-11-30 Dave Love <fx@gnu.org>
* message.el (message-auto-save-directory): Use

46
lisp/gnus/gnus-msg.el
View File

@ -102,7 +102,7 @@ the second with the current group name.")
"*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 @@ Thank you for your help in stamping out bugs.
;; "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 @@ Thank you for your help in stamping out bugs.
(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 @@ Thank you for your help in stamping out bugs.
(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 @@ header line with the old Message-ID."
(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 @@ The original article will be yanked."
"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")

6
lisp/gnus/gnus-win.el
View File

@ -433,6 +433,10 @@ See the Gnus manual for an explanation of the syntax used.")
;; 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)))
(unwind-protect
@ -536,7 +540,7 @@ should have point."
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)