[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el [emacs-unicode-2] |
Date: |
Thu, 14 Oct 2004 05:17:27 -0400 |
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))
- [Emacs-diffs] Changes to emacs/lisp/gnus/message.el [emacs-unicode-2],
Miles Bader <=