[gnus git] branch master updated: n0-15-70-gbab3851 =1= message.el (message-bogus-system-names): Replace ^...$ => \`...\'. gnus.el (gnus-splash-svg-color-symbols): Don't use insert-file from Lisp. gnus-draft.el (gnus-draft-setup): New arg `dont-pop'. (gnus-draft-send): Use it to avoid popping up frames from gnus-group-send-queue.

       via  bab3851c01b455c986eec6cda6c7ab8e1d078735 (commit)
      from  94bdeec908274fa46f3b297879bf6c3bfdc2e206 (commit)


- Log -----------------------------------------------------------------
commit bab3851c01b455c986eec6cda6c7ab8e1d078735
Author: Stefan Monnier <[email protected]>
Date:   Fri Apr 15 14:25:05 2011 +0000

    message.el (message-bogus-system-names): Replace ^...$ => \`...\'.
    gnus.el (gnus-splash-svg-color-symbols): Don't use insert-file from Lisp.
    gnus-draft.el (gnus-draft-setup): New arg `dont-pop'.
     (gnus-draft-send): Use it to avoid popping up frames from gnus-group-send-queue.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8628ed..6fb79af 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,17 @@
 	* gnus-registry.el (gnus-registry--split-fancy-with-parent-internal):
 	Track by subject first, then sender.
 
+2011-04-15  Stefan Monnier  <[email protected]>
+
+	* message.el (message-bogus-system-names): Replace ^...$ => \`...\'.
+
+	* gnus.el (gnus-splash-svg-color-symbols): Don't use insert-file from
+	Lisp.
+
+	* gnus-draft.el (gnus-draft-setup): New arg `dont-pop'.
+	(gnus-draft-send): Use it to avoid popping
+	up frames from gnus-group-send-queue.
+
 2011-04-14  Teodor Zlatanov  <[email protected]>
 
 	* gnus-registry.el: Updated gnus-registry docs.
diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index b613b6e..1709b1c 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -149,7 +149,7 @@ Obeys the standard process/prefix convention."
                                      gnus-agent-queue-mail))
 	 (rfc2047-encode-encoded-words nil)
          type method move-to)
-    (gnus-draft-setup article (or group "nndraft:queue"))
+    (gnus-draft-setup article (or group "nndraft:queue") nil 'dont-pop)
     ;; We read the meta-information that says how and where
     ;; this message is to be sent.
     (save-restriction
@@ -245,11 +245,15 @@ Obeys the standard process/prefix convention."
   :type 'hook)
 
 
-(defun gnus-draft-setup (narticle group &optional restore)
+(defun gnus-draft-setup (narticle group &optional restore dont-pop)
+  "Setup a mail draft buffer.
+If DONT-POP is nil, display the buffer after setting it up."
   (let (ga)
     (gnus-setup-message 'forward
       (let ((article narticle))
-        (message-mail)
+        (message-mail nil nil nil nil
+                      (if dont-pop
+                          (lambda (buf) (set-buffer (get-buffer-create buf)))))
         (let ((inhibit-read-only t))
           (erase-buffer))
         (if (not (gnus-request-restore-buffer article group))
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 71d86cc..03a9bd7 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1106,16 +1106,18 @@ be set in `.emacs' instead."
     (set-buffer-modified-p t)))
 
 (defun gnus-splash-svg-color-symbols (list)
-  "Do color-symbol search-and-replace in svg file"
+  "Do color-symbol search-and-replace in svg file."
   (let ((type (plist-get (cdr list) :type))
         (file (plist-get (cdr list) :file))
         (color-symbols (plist-get (cdr list) :color-symbols)))
     (if (string= type "svg")
-        (let ((data (with-temp-buffer (insert-file file) (buffer-string))))
+        (let ((data (with-temp-buffer (insert-file-contents file)
+                                      (buffer-string))))
           (mapc (lambda (rule)
                   (setq data (replace-regexp-in-string
                               (concat "fill:" (car rule))
-                              (concat "fill:" (cdr rule)) data))) color-symbols)
+                              (concat "fill:" (cdr rule)) data)))
+                color-symbols)
           (cons (car list) (list :type type :data data)))
        list)))
 
diff --git a/lisp/message.el b/lisp/message.el
index 59989f3..b26de63 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1926,7 +1926,7 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
 (defvar message-send-mail-real-function nil
   "Internal send mail function.")
 
-(defvar message-bogus-system-names "^localhost\\.\\|\\.local$"
+(defvar message-bogus-system-names "\\`localhost\\.\\|\\.local\\'"
   "The regexp of bogus system names.")
 
 (defcustom message-valid-fqdn-regexp

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog     |   11 +++++++++++
 lisp/gnus-draft.el |   10 +++++++---
 lisp/gnus.el       |    8 +++++---
 lisp/message.el    |    2 +-
 4 files changed, 24 insertions(+), 7 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project