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