Mercurial > hg > xemacs-beta

comparison lisp/mu/std11.el @ 30:ec9a17fef872 r19-15b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b98
author cvs
date Mon, 13 Aug 2007 08:52:29 +0200
parents 4b173ad71786
children 131b0175ea99
comparison
equal deleted inserted replaced
29:7976500f47f9 30:ec9a17fef872
1 ;;; std11.el --- STD 11 functions for GNU Emacs 1 ;;; std11.el --- STD 11 functions for GNU Emacs
2 2
3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Keywords: mail, news, RFC 822, STD 11 6 ;; Keywords: mail, news, RFC 822, STD 11
7 ;; Version: $Id: std11.el,v 1.2 1996/12/22 00:29:20 steve Exp $ 7 ;; Version: $Id: std11.el,v 1.3 1997/03/09 02:37:25 steve Exp $
8 8
9 ;; This file is part of MU (Message Utilities). 9 ;; This file is part of MU (Message Utilities).
10 10
11 ;; This program is free software; you can redistribute it and/or 11 ;; This program is free software; you can redistribute it and/or
12 ;; modify it under the terms of the GNU General Public License as 12 ;; modify it under the terms of the GNU General Public License as
261 (defun std11-addr-to-string (seq) 261 (defun std11-addr-to-string (seq)
262 "Return string from lexical analyzed list SEQ 262 "Return string from lexical analyzed list SEQ
263 represents addr-spec of RFC 822. [std11.el]" 263 represents addr-spec of RFC 822. [std11.el]"
264 (mapconcat (function 264 (mapconcat (function
265 (lambda (token) 265 (lambda (token)
266 (if (let ((name (car token))) 266 (let ((name (car token)))
267 (or (eq name 'spaces) 267 (cond
268 (eq name 'comment) 268 ((eq name 'spaces) "")
269 )) 269 ((eq name 'comment) "")
270 "" 270 ((eq name 'quoted-string)
271 (cdr token) 271 (concat "\"" (cdr token) "\""))
272 ))) 272 (t (cdr token)))
273 )))
273 seq "") 274 seq "")
274 ) 275 )
275 276
276 (defun std11-address-string (address) 277 (defun std11-address-string (address)
277 "Return string of address part from parsed ADDRESS of RFC 822. 278 "Return string of address part from parsed ADDRESS of RFC 822.