From: "Рейх Константин" <reich-cv@yandex.ru>
To: 28150@debbugs.gnu.org
Subject: bug#28150: mail-compose doesnot work correctly with gnus-user-agent
Date: Sat, 19 Aug 2017 22:07:18 +0300 [thread overview]
Message-ID: <968221503169638@web32j.yandex.ru> (raw)
Hi,
I noticed that if Gnus isn't running, mail-compose doesnot use gnus even if i set
(setq mail-user-agent 'gnus-user-agent)
The reason is that gnus-msg-mail uses plain Message mode if gnus isn't running. Is this a bug or feature?
It seems reasonable to assume that if I set gnus-user-agent I want to use gnus, nothing else.
One can define new mail user agent like:
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 85969edc81..bb65d3aaab 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -574,6 +574,24 @@ instead."
'gnus-msg-mail 'message-send-and-exit
'message-kill-buffer 'message-send-hook)
+(define-mail-user-agent 'gnus-user-agent-2
+ 'gnus-msg-mail-2 'message-send-and-exit
+ 'message-kill-buffer 'message-send-hook)
+
+(defun gnus-msg-mail-2 (&optional to subject other-headers continue switch-action yank-action send-actions return-action)
+ "Start editing a mail message to be sent.
+Like `gnus-msg-mail', but if Gnus isn't running, start it"
+ (interactive)
+ (if (not (gnus-alive-p))
+ (save-window-excursion
+ (let ((inhibit-redisplay t))
+ (gnus))))
+ (gnus-msg-mail to subject other-headers continue switch-action yank-action send-actions return-action)
+ )
+
+
+
+
(defun gnus-setup-posting-charset (group)
(let ((alist gnus-group-posting-charset-alist)
(group (or group ""))
Or even redefine the function gnus-msg-mail:
diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index 85969edc81..c2952b671f 100644
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -528,32 +528,30 @@ Thank you for your help in stamping out bugs.
"Start editing a mail message to be sent.
Like `message-mail', but with Gnus paraphernalia, particularly the
Gcc: header for archiving purposes.
-If Gnus isn't running, a plain `message-mail' setup is used
-instead."
+If Gnus isn't running, start it."
(interactive)
(if (not (gnus-alive-p))
- (progn
- (message "Gnus not running; using plain Message mode")
- (message-mail to subject other-headers continue
- nil yank-action send-actions return-action))
- (let ((buf (current-buffer))
- ;; Don't use posting styles corresponding to any existing group.
- (group-name gnus-newsgroup-name)
- mail-buf)
- (unwind-protect
- (progn
- (setq gnus-newsgroup-name "")
- (gnus-setup-message 'message
- (message-mail to subject other-headers continue
- nil yank-action send-actions return-action)))
- (with-current-buffer buf
- (setq gnus-newsgroup-name group-name)))
- (when switch-action
- (setq mail-buf (current-buffer))
- (switch-to-buffer buf)
- (apply switch-action mail-buf nil))
- ;; COMPOSEFUNC should return t if succeed. Undocumented ???
- t)))
+ (save-window-excursion
+ (let ((inhibit-redisplay t))
+ (gnus))))
+ (let ((buf (current-buffer))
+ ;; Don't use posting styles corresponding to any existing group.
+ (group-name gnus-newsgroup-name)
+ mail-buf)
+ (unwind-protect
+ (progn
+ (setq gnus-newsgroup-name "")
+ (gnus-setup-message 'message
+ (message-mail to subject other-headers continue
+ nil yank-action send-actions return-action)))
+ (with-current-buffer buf
+ (setq gnus-newsgroup-name group-name)))
+ (when switch-action
+ (setq mail-buf (current-buffer))
+ (switch-to-buffer buf)
+ (apply switch-action mail-buf nil))
+ ;; COMPOSEFUNC should return t if succeed. Undocumented ???
+ t))
;;;###autoload
(defun gnus-button-mailto (address)
next reply other threads:[~2017-08-19 19:07 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-08-19 19:07 Рейх Константин [this message]
2017-08-19 19:33 ` bug#28150: mail-compose doesnot work correctly with gnus-user-agent Eli Zaretskii
2017-09-13 18:20 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=968221503169638@web32j.yandex.ru \
--to=reich-cv@yandex.ru \
--cc=28150@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.