Submit changes forgotten yesterday.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 9ed15ff..02d3aea 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1077,7 +1077,8 @@ The following commands are available:
       (gnus-group-insert-group-line "dummy.group" 0 nil 0 nil)
       (goto-char (point-min))
       (setq gnus-group-mark-positions
       (gnus-group-insert-group-line "dummy.group" 0 nil 0 nil)
       (goto-char (point-min))
       (setq gnus-group-mark-positions

-           (list (cons 'process (and (search-forward "\200" nil t)
+           (list (cons 'process (and (search-forward
+                                      (string-as-multibyte "\200") nil t)

                                      (- (point) 2))))))))
 
 (defun gnus-mouse-pick-group (e)
                                      (- (point) 2))))))))
 
 (defun gnus-mouse-pick-group (e)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5101576..bd75b3c 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1784,7 +1784,8 @@ The source file has to be in the Emacs load path."
     ;; Remove any control chars - they seem to cause trouble for some
     ;; mailers.  (Byte-compiled output from the stuff above.)
     (goto-char point)
     ;; Remove any control chars - they seem to cause trouble for some
     ;; mailers.  (Byte-compiled output from the stuff above.)
     (goto-char point)

-    (while (re-search-forward "[\000-\010\013-\037\200-\237]" nil t)
+    (while (re-search-forward (string-as-multibyte
+                              "[\000-\010\013-\037\200-\237]") nil t)

       (replace-match (format "\\%03o" (string-to-char (match-string 0)))
                     t t))
     ;; Break MIME tags purposely.
       (replace-match (format "\\%03o" (string-to-char (match-string 0)))
                     t t))
     ;; Break MIME tags purposely.

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7931d93..f6669fe 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -3281,20 +3281,24 @@ buffer that was in action when the last article was fetched."
                                  "" "" 0 0 "" nil)
           0 nil t 128 t nil "" nil 1)
          (goto-char (point-min))
                                  "" "" 0 0 "" nil)
           0 nil t 128 t nil "" nil 1)
          (goto-char (point-min))

-         (setq pos (list (cons 'unread (and (search-forward "\200" nil t)
-                                            (- (point) (point-min) 1)))))
+         (setq pos (list (cons 'unread
+                               (and (search-forward
+                                     (string-as-multibyte "\200") nil t)
+                                    (- (point) (point-min) 1)))))

          (goto-char (point-min))
          (goto-char (point-min))

-         (push (cons 'replied (and (search-forward "\201" nil t)
+         (push (cons 'replied (and (search-forward
+                                    (string-as-multibyte "\201") nil t)

                                    (- (point) (point-min) 1)))
                pos)
          (goto-char (point-min))
                                    (- (point) (point-min) 1)))
                pos)
          (goto-char (point-min))

-         (push (cons 'score (and (search-forward "\202" nil t)
+         (push (cons 'score (and (search-forward
+                                  (string-as-multibyte "\202") nil t)

                                  (- (point) (point-min) 1)))
                pos)
          (goto-char (point-min))
                                  (- (point) (point-min) 1)))
                pos)
          (goto-char (point-min))

-         (push (cons 'download
-                     (and (search-forward "\203" nil t)
-                          (- (point) (point-min) 1)))
+         (push (cons 'download (and (search-forward
+                                     (string-as-multibyte "\203") nil t)
+                                    (- (point) (point-min) 1)))

                pos)))
       (setq gnus-summary-mark-positions pos))))
 
                pos)))
       (setq gnus-summary-mark-positions pos))))
 

diff --git a/lisp/message.el b/lisp/message.el
index 6c77352..17470ea 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4971,7 +4971,9 @@ Otherwise, generate and save a value for `canlock-password' first."
             nil))))
    ;; Check for control characters.
    (message-check 'control-chars
             nil))))
    ;; Check for control characters.
    (message-check 'control-chars

-     (if (re-search-forward "[\000-\007\013\015-\032\034-\037\200-\237]" nil t)
+     (if (re-search-forward
+         (string-as-multibyte "[\000-\007\013\015-\032\034-\037\200-\237]")
+         nil t)

         (y-or-n-p
          "The article contains control characters.  Really post? ")
        t))
         (y-or-n-p
          "The article contains control characters.  Really post? ")
        t))