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

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

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

revision 1.3 by gerd, Sun Apr 9 10:57:15 2000 UTC revision 1.3.18.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 125  calling this function." Line 125  calling this function."
125    
126            (setq prequery            (setq prequery
127                  (match-string rfc2368-mailto-prequery-index mailto-url))                  (match-string rfc2368-mailto-prequery-index mailto-url))
128              
129            (setq query            (setq query
130                  (match-string rfc2368-mailto-query-index mailto-url))                  (match-string rfc2368-mailto-query-index mailto-url))
131    
# Line 154  calling this function." Line 154  calling this function."
154                        (setcdr our-cons-cell (concat our-cdr ", " prequery)))                        (setcdr our-cons-cell (concat our-cdr ", " prequery)))
155                    (setq headers-alist                    (setq headers-alist
156                          (cons (cons "To" prequery) headers-alist)))))                          (cons (cons "To" prequery) headers-alist)))))
157              
158            headers-alist)            headers-alist)
159          
160        (error "Failed to match a mailto: url"))        (error "Failed to match a mailto: url"))
161      ))      ))
162    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.18.1

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