From: "\\\\s-+\\\\(.*\\)" nil t) (setq s (match-string 1))) (while (string-match "\\"" s) (setq s (replace-match "" t ts))) (if (string-match "[<(].*" s) (setq s (replace-match "" t t s)))) ((eq header 'message-id) (if (re- search-forward "*message-id:\\\\s-+\\\\(.*\\\\)" nil t) (setq s (match-string 1)))) ((eq header 'subject) (if (re-search-forward "“subject:\\\\s-+\\\\(.*\\\)" nil t) (setq s (match-string 1))))) (if (string-match "\\\\"[ \\t\\J+" s) (setq s (replace-match "" t t s))) (if (string-match "[ \t\\]+\\\\"" s) (setq s (replace-match "" t t s)))s)))" (defun org-fixup-message-id-for-http (s) "Replace special characters in (while (string-match "<" (setq s (replace-match (while (string-match ">" (setq s (replace-match (while (string-match "@" (setq s (replace-match s) s) ws3c" s) "S3E" s) wsagu a t t t message id, so it can be used in an http query." t s))) t s))) t s))) EFTA00504544