/[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.64 by miles, Thu Oct 7 05:53:41 2004 UTC revision 1.65 by miles, Thu Oct 14 07:33:19 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))

Legend:
Removed from v.1.64  
changed lines
  Added in v.1.65

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