Mercurial > hg > xemacs-beta
diff lisp/mu/std11-parse.el @ 74:54cc21c15cbb r20-0b32
Import from CVS: tag r20-0b32
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:04:33 +0200 |
parents | 131b0175ea99 |
children |
line wrap: on
line diff
--- a/lisp/mu/std11-parse.el Mon Aug 13 09:03:47 2007 +0200 +++ b/lisp/mu/std11-parse.el Mon Aug 13 09:04:33 2007 +0200 @@ -2,12 +2,12 @@ ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. -;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> +;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; Keywords: mail, news, RFC 822, STD 11 ;; Version: -;; $Id: std11-parse.el,v 1.1.1.1 1996/12/18 22:43:39 steve Exp $ +;; $Id: std11-parse.el,v 1.1.1.2 1996/12/21 20:50:53 steve Exp $ -;; This file is part of tl (Tiny Library). +;; This file is part of MU (Message Utilities). ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as @@ -68,7 +68,7 @@ ) (if (and (> len i) (eq (aref str i) open)) - (let (p chr dest) + (let (p chr) (setq i (1+ i)) (catch 'tag (while (< i len)