X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fietf-drums.el;h=c28c942d2883e7449bfdae61a71d778537cf95c5;hb=41fb7027bd9100cf7a76b88761ed42317e11cfa8;hp=865ddffaaccd3ba96fd28613e963f1b4db04a3c1;hpb=5c85eb9dd8a85edecf9b9da5bfeb5ca5d754aa1b;p=elisp%2Fgnus.git-

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index 865ddff..c28c942 100644
--- a/lisp/ietf-drums.el
+++ b/lisp/ietf-drums.el
@@ -1,5 +1,5 @@
 ;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1998,99 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; This file is part of GNU Emacs.
@@ -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)))