/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55.4.4 by miles, Wed Sep 29 07:22:16 2004 UTC revision 1.55.4.5 by miles, Thu Oct 14 08:50:05 2004 UTC
# Line 1615  is used by default." Line 1615  is used by default."
1615    (if (not header)    (if (not header)
1616        nil        nil
1617      (let ((regexp (format "[%s]+" (or separator ",")))      (let ((regexp (format "[%s]+" (or separator ",")))
           (beg (point-min))  
1618            (first t)            (first t)
1619            quoted elems paren)            beg quoted elems paren)
1620        (with-temp-buffer        (with-temp-buffer
1621          (mm-enable-multibyte)          (mm-enable-multibyte)
1622            (setq beg (point-min))
1623          (insert header)          (insert header)
1624          (goto-char (point-min))          (goto-char (point-min))
1625          (while (not (eobp))          (while (not (eobp))
# Line 4399  Otherwise, generate and save a value for Line 4399  Otherwise, generate and save a value for
4399               nil))))               nil))))
4400     ;; Check for control characters.     ;; Check for control characters.
4401     (message-check 'control-chars     (message-check 'control-chars
4402       (if (re-search-forward "[\000-\007\013\015-\032\034-\037\200-\237]" nil t)       (if (re-search-forward
4403              (mm-string-as-multibyte "[\000-\007\013\015-\032\034-\037\200-\237]")
4404              nil t)
4405           (y-or-n-p           (y-or-n-p
4406            "The article contains control characters.  Really post? ")            "The article contains control characters.  Really post? ")
4407         t))         t))

Legend:
Removed from v.1.55.4.4  
changed lines
  Added in v.1.55.4.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26