- If you insert this slab of code, you will get a User-Agent header for notmuch
- ;; set the User-Agent string whenever we invoke message mode
- (add-hook 'message-mode-hook '(lambda()
- ;; check if User-Agent is a required header and set it if not
- (if (not (memq 'User-Agent message-required-mail-headers))
- (setq message-required-mail-headers
- (append message-required-mail-headers '(User-Agent))))
- ;; hide the User-Agent header if not already hidden
- (if (not (memq '"^User-Agent:" message-hidden-headers))
- (setq message-hidden-headers
- (append message-hidden-headers '("^User-Agent:"))))
- ;; create user agent string
- (let ((notmuch-user-agent (concat
- (substring (shell-command-to-string (concat notmuch-command " --version")) 0 -1)
- " (Emacs " emacs-version "/"
- system-configuration ")")))
- (setq message-newsreader notmuch-user-agent))
- ))
+ If you insert this slab of code, you will get a User-Agent header for notmuch
+ ;; set the User-Agent string whenever we invoke message mode
+ (add-hook 'message-mode-hook '(lambda()
+ ;; check if User-Agent is a required header and set it if not
+ (if (not (memq 'User-Agent message-required-mail-headers))
+ (setq message-required-mail-headers
+ (append message-required-mail-headers '(User-Agent))))
+ ;; hide the User-Agent header if not already hidden
+ (if (not (memq '"^User-Agent:" message-hidden-headers))
+ (setq message-hidden-headers
+ (append message-hidden-headers '("^User-Agent:"))))
+ ;; create user agent string
+ (let ((notmuch-user-agent (concat
+ (substring (shell-command-to-string (concat notmuch-command " --version")) 0 -1)
+ " (Emacs " emacs-version "/"
+ system-configuration ")")))
+ (setq message-newsreader notmuch-user-agent))
+ ))