/[emacs]/emacs/lisp/mail/rmailsort.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmailsort.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.28 by pj, Sun Jul 15 16:15:35 2001 UTC revision 1.28.8.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 133  KEYWORDS is a comma-separated list of la Line 133  KEYWORDS is a comma-separated list of la
133    (setq labels (concat (substring labels (match-beginning 0)) ","))    (setq labels (concat (substring labels (match-beginning 0)) ","))
134    (let (labelvec)    (let (labelvec)
135      (while (string-match "[ \t]*,[ \t]*" labels)      (while (string-match "[ \t]*,[ \t]*" labels)
136        (setq labelvec (cons        (setq labelvec (cons
137                        (concat ", ?\\("                        (concat ", ?\\("
138                                (substring labels 0 (match-beginning 0))                                (substring labels 0 (match-beginning 0))
139                                "\\),")                                "\\),")

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.28.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26