[Emacs-diffs] Changes to emacs/lisp/gnus/message.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.55.4.4 emacs/lisp/gnus/message.el:1.55.4.5
*** emacs/lisp/gnus/message.el:1.55.4.4 Wed Sep 29 07:22:16 2004
--- emacs/lisp/gnus/message.el  Thu Oct 14 08:50:05 2004
***************
*** 1615,1625 ****
    (if (not header)
        nil
      (let ((regexp (format "[%s]+" (or separator ",")))
-         (beg (point-min))
          (first t)
!         quoted elems paren)
        (with-temp-buffer
        (mm-enable-multibyte)
        (insert header)
        (goto-char (point-min))
        (while (not (eobp))
--- 1615,1625 ----
    (if (not header)
        nil
      (let ((regexp (format "[%s]+" (or separator ",")))
          (first t)
!         beg quoted elems paren)
        (with-temp-buffer
        (mm-enable-multibyte)
+       (setq beg (point-min))
        (insert header)
        (goto-char (point-min))
        (while (not (eobp))
***************
*** 4399,4405 ****
             nil))))
     ;; Check for control characters.
     (message-check 'control-chars
!      (if (re-search-forward "[\000-\007\013\015-\032\034-\037\200-\237]" nil 
t)
         (y-or-n-p
          "The article contains control characters.  Really post? ")
         t))
--- 4399,4407 ----
             nil))))
     ;; Check for control characters.
     (message-check 'control-chars
!      (if (re-search-forward
!         (mm-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))