bug#28150: mail-compose doesnot work correctly with gnus-user-agent

[Рейх Константин]

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)