From: "1111s--F1111(.*1111)" nil t) (setq s (match-string 1))) (while (string-match "W" s) (setq s (replace-match "" t
t s))) (if (string-match "[<(].*" s) (setq s (replace-match "" t t s)))) ((eq header 'message-id) (if (re-
search-forward "Amessage-id:Ms--R111(.*1111)" nil t) (setq s (match-string 1)))) ((eq header 'subject) (if
(re-search-forward "Asubject:1111s--R111(.*1111)" nil t) (setq s (match-string 1))))) (if (string-match "1111'[
11t11]+" s) (setq s (replace-match "" t t s))) (if (string-match "[WA-FM" s) (setq s (replace-match "" t t
s))) s)))"
(defun org-fixup-message-id-for-http (s)
"Replace special characters in a message id, so it can be used in an http query."
(while (string-match "<" s)
(setq s (replace-match "%3C" t t s)))
(while (string-match ">" s)
(setq s (replace-match "%3E" t t s)))
(while (string-match "@" s)
(setq s (replace-match "%40" t t s)))
s)
EFTA00504544