(defconst rfc822/RCS-ID
- "$Id: tl-822.el,v 7.13 1996-04-19 19:21:49 morioka Exp $")
+ "$Id: tl-822.el,v 7.14 1996-04-19 19:23:37 morioka Exp $")
(defconst rfc822/version (get-version-string rfc822/RCS-ID))
(setq semicolon (car ret))
(string-equal (cdr (assq 'specials semicolon)) ";")
)))
- (cons (list 'group phrase (reverse mbox))
+ (cons (list 'group phrase (nreverse mbox))
(cdr ret)
)
)))