*** empty log message ***

[gnus] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 52c2a3a..22f2a30 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -921,12 +921,12 @@ The cdr of ech entry is a function for applying the face to a region.")
                               (not paren))))
                 (push (buffer-substring beg (point)) elems)
                 (setq beg (match-end 0)))
-               ((= (following-char) ?\")
+               ((= (char-after (point)) ?\")
                 (setq quoted (not quoted)))
-               ((and (= (following-char) ?\()
+               ((and (= (char-after (point)) ?\()
                      (not quoted))
                 (setq paren t))
-               ((and (= (following-char) ?\))
+               ((and (= (char-after (point)) ?\))
                      (not quoted))
                 (setq paren nil))))
        (nreverse elems)))))
@@ -1832,7 +1832,7 @@ the user from the mailer."
            (message-remove-header message-ignored-mail-headers t))
          (goto-char (point-max))
          ;; require one newline at the end.
-         (or (= (preceding-char) ?\n)
+         (or (= (char-before (point)) ?\n)
              (insert ?\n))
          (when (and news
                     (or (message-fetch-field "cc")
@@ -2009,7 +2009,7 @@ to find out how to use this."
              (message-remove-header message-ignored-news-headers t))
            (goto-char (point-max))
            ;; require one newline at the end.
-           (or (= (preceding-char) ?\n)
+           (or (= (char-before (point)) ?\n)
                (insert ?\n))
            (let ((case-fold-search t))
              ;; Remove the delimiter.
@@ -2298,7 +2298,8 @@ to find out how to use this."
        (concat "^" (regexp-quote mail-header-separator) "$"))
       (while (not (eobp))
        (when (not (looking-at "[ \t\n]"))
-         (setq sum (logxor (ash sum 1) (following-char))))
+         (setq sum (logxor (ash sum 1) (if (natnump sum) 0 1)
+                           (following-char))))
        (forward-char 1)))
     sum))
 
@@ -2484,9 +2485,10 @@ to find out how to use this."
        (let ((stop-pos
               (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
          (concat (if stop-pos (substring from 0 stop-pos) from)
-                 "'s message of "
+                 "'s message of \""
                  (if (or (not date) (string= date ""))
-                     "(unknown date)" date)))))))
+                     "(unknown date)" date)
+                 "\""))))))
 
 (defun message-make-distribution ()
   "Make a Distribution header."
@@ -2674,7 +2676,7 @@ Headers already prepared in the buffer are not modified."
                  (progn
                    ;; The header was found.  We insert a space after the
                    ;; colon, if there is none.
-                   (if (/= (following-char) ? ) (insert " ") (forward-char 1))
+                   (if (/= (char-after (point)) ? ) (insert " ") (forward-char 1))
                    ;; Find out whether the header is empty...
                    (looking-at "[ \t]*$")))
          ;; So we find out what value we should insert.
@@ -2782,7 +2784,7 @@ Headers already prepared in the buffer are not modified."
       (goto-char (point-min))
       (while (not (eobp))
        (skip-chars-forward "^,\"" (point-max))
-       (if (or (= (following-char) ?,)
+       (if (or (= (char-after (point)) ?,)
                (eobp))
            (when (not quoted)
              (if (and (> (current-column) 78)
@@ -2829,7 +2831,7 @@ Headers already prepared in the buffer are not modified."
     (search-backward ":" )
     (widen)
     (forward-char 1)
-    (if (= (following-char) ? )
+    (if (= (char-after (point)) ? )
        (forward-char 1)
       (insert " ")))
    (t
@@ -2968,7 +2970,9 @@ Headers already prepared in the buffer are not modified."
     (let ((name (make-temp-name
                 (expand-file-name
                  (concat (file-name-as-directory message-autosave-directory)
-                         "msg." (buffer-name))))))
+                         "msg."
+                         (nnheader-replace-chars-in-string
+                          (buffer-name) ?* ?.))))))
       (setq buffer-auto-save-file-name
            (save-excursion
              (prog1
@@ -3524,7 +3528,7 @@ which specify the range to operate on."
       (goto-char (min start end))
       (while (< (point) end1)
        (or (looking-at "[_\^@- ]")
-           (insert (following-char) "\b"))
+           (insert (char-after (point)) "\b"))
        (forward-char 1)))))
 
 ;;;###autoload
@@ -3538,7 +3542,7 @@ which specify the range to operate on."
       (move-marker end1 (max start end))
       (goto-char (min start end))
       (while (re-search-forward "\b" end1 t)
-       (if (eq (following-char) (char-after (- (point) 2)))
+       (if (eq (char-after (point)) (char-after (- (point) 2)))
            (delete-char -2))))))
 
 (defalias 'message-exchange-point-and-mark 'exchange-point-and-mark)