*** empty log message ***

[gnus] / lisp / ietf-drums.el

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index 2ef7d61..dd7f7f0 100644 (file)
--- a/lisp/ietf-drums.el
+++ b/lisp/ietf-drums.el
@@ -87,6 +87,8 @@
        ((= i (length token))
        (push (mm-make-char 'ascii c) out))
        (t
+       (when b
+         (push (mm-make-char 'ascii b) out))
        (setq b c))))
     (nreverse out)))
 
@@ -102,7 +104,7 @@
     (let (c)
       (ietf-drums-init string)
       (while (not (eobp))
-       (setq c (following-char))
+       (setq c (char-after))
        (cond
         ((eq c ?\")
          (forward-sexp 1))
@@ -118,7 +120,7 @@
     (ietf-drums-init string)
     (let (c)
       (while (not (eobp))
-       (setq c (following-char))
+       (setq c (char-after))
        (cond
         ((eq c ?\")
          (forward-sexp 1))
@@ -136,7 +138,7 @@
     (ietf-drums-init string)
     (let (result c)
       (while (not (eobp))
-       (setq c (following-char))
+       (setq c (char-after))
        (cond
         ((eq c ?\")
          (forward-sexp 1))
@@ -155,7 +157,7 @@
     (let (display-name mailbox c display-string)
       (ietf-drums-init string)
       (while (not (eobp))
-       (setq c (following-char))
+       (setq c (char-after))
        (cond
         ((or (eq c ? )
              (eq c ?\t))
@@ -196,7 +198,7 @@
     (let ((beg (point))
          pairs c)
       (while (not (eobp))
-       (setq c (following-char))
+       (setq c (char-after))
        (cond
         ((memq c '(?\" ?< ?\())
          (forward-sexp 1))
@@ -226,7 +228,7 @@
   "Narrow to the header section in the current buffer."
   (narrow-to-region
    (goto-char (point-min))
-   (if (search-forward "\n\n" nil 1)
+   (if (re-search-forward "^\n" nil 1)
        (1- (point))
      (point-max)))
   (goto-char (point-min)))