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 (file)
--- 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  <monnier@iro.umontreal.ca>
+
+       * 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  <tzz@lifelogs.com>
 
        * gnus-registry.el: Updated gnus-registry docs.

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index b613b6e..1709b1c 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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