← Back to branch summary

~ubuntu-branches/debian/lenny/wl-beta/lenny

« back to all changes in this revision

Viewing changes to wl/wl-address.el

  • Committer: Bazaar Package Importer
  • Author(s): Tatsuya Kinoshita
  • Date: 2008-05-20 22:47:03 UTC
  • mfrom: (1.3.1 upstream) (8.1.7 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080520224703-0bo0zeloqn3higk5
Tags: 2.15.6+0.20080422-1
* New upstream release. (CVS trunk on 2008-04-22)
* debian/copyright: Updated.

Show diffs side-by-side

added added

removed removed

Lines of Context:
wl/wl-address.el
36
36
(require 'wl-util)
37
37
(require 'wl-vars)
38
38
(require 'std11)
 
39
(eval-when-compile (require 'cl))
39
40
 
40
41
(defvar wl-address-complete-header-list
41
42
  '("To:" "From:" "Cc:" "Bcc:" "Mail-Followup-To:" "Reply-To:"
620
621
                           list))))))
621
622
 
622
623
(defmacro wl-address-concat-token (string token)
623
 
  (` (cond
624
 
      ((eq 'quoted-string (car (, token)))
625
 
       (concat (, string) "\"" (cdr (, token)) "\""))
626
 
      ((eq 'comment (car (, token)))
627
 
       (concat (, string) "(" (cdr (, token)) ")"))
628
 
      (t
629
 
       (concat (, string) (cdr (, token)))))))
 
624
  `(cond
 
625
    ((eq 'quoted-string (car ,token))
 
626
     (concat ,string "\"" (cdr ,token) "\""))
 
627
    ((eq 'comment (car ,token))
 
628
     (concat ,string "(" (cdr ,token) ")"))
 
629
    (t
 
630
     (concat ,string (cdr ,token)))))
630
631
 
631
632
(defun wl-address-string-without-group-list-contents (sequence)
632
633
  "Return address string from lexical analyzed list SEQUENCE.