Mercurial > hg > xemacs-beta

comparison lisp/mu/std11.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents 54cc21c15cbb
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
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.1.1.2 1996/12/21 20:50:52 steve Exp $ 7 ;; Version: $Id: std11.el,v 1.2 1997/03/08 23:26:30 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.