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 |
|
|
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 |
|
|