Use .invalid.

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index aeab4bd..f5c04c7 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4769,7 +4769,7 @@ In posting styles use `(\"Expires\" (make-expires-date 30))'."
     (concat
      (if (or (memq system-type '(ms-dos emx vax-vms))
             ;; message-number-base36 doesn't handle bigints.
-            (float (user-uid)))
+            (floatp (user-uid)))
         (let ((user (downcase (user-login-name))))
           (while (string-match "[^a-z0-9_]" user)
             (aset user (match-beginning 0) ?_))
@@ -6507,6 +6507,7 @@ Optional DIGEST will use digest to forward."
        (set-buffer (get-buffer-create " *message resend*"))
        (erase-buffer))
       (let ((message-this-is-mail t)
+           message-generate-hashcash
            message-setup-hook)
        (message-setup `((To . ,address))))
       ;; Insert our usual headers.
@@ -6544,6 +6545,7 @@ Optional DIGEST will use digest to forward."
       ;; Send it.
       (let ((message-inhibit-body-encoding t)
            message-required-mail-headers
+           message-generate-hashcash
            rfc2047-encode-encoded-words)
        (message-send-mail))
       (kill-buffer (current-buffer)))
@@ -6796,6 +6798,8 @@ See `gmm-tool-bar-from-list' for the format of the list."
   :set 'message-tool-bar-update
   :group 'message)
 
+(defvar image-load-path)
+
 (defun message-make-tool-bar (&optional force)
   "Make a message mode tool bar from `message-tool-bar-list'.
 When FORCE, rebuild the tool bar."
@@ -6804,14 +6808,13 @@ When FORCE, rebuild the tool bar."
             tool-bar-mode
             (or (not message-tool-bar-map) force))
     (setq message-tool-bar-map
-         (let ((load-path
-                (gmm-image-load-path-for-library "message"
-                                                 "mail/save-draft.xpm"
-                                                 nil t))
-               (image-load-path
-                (gmm-image-load-path-for-library "message"
-                                                 "mail/save-draft.xpm"
-                                                 'image-load-path t)))
+         (let* ((load-path
+                 (gmm-image-load-path-for-library "message"
+                                                  "mail/save-draft.xpm"
+                                                  nil t))
+                (image-load-path (cons (car load-path)
+                                       (when (boundp 'image-load-path)
+                                         image-load-path))))
            (gmm-tool-bar-from-list message-tool-bar
                                    message-tool-bar-zap-list
                                    'message-mode-map))))