111s--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 us