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)