equal
deleted
inserted
replaced
1578 |
1578 |
1579 ;; Do not use the html part of a message, use the text part if possible! |
1579 ;; Do not use the html part of a message, use the text part if possible! |
1580 (setq mm-discouraged-alternatives '("text/html" "text/richtext")) |
1580 (setq mm-discouraged-alternatives '("text/html" "text/richtext")) |
1581 (setq mm-text-html-renderer 'w3m) |
1581 (setq mm-text-html-renderer 'w3m) |
1582 |
1582 |
|
1583 (defun my-w3m-view-url () |
|
1584 (interactive) |
|
1585 (browse-url (w3m-anchor))) |
|
1586 |
1583 (eval-after-load 'w3m |
1587 (eval-after-load 'w3m |
1584 '(progn |
1588 '(progn |
1585 (define-key w3m-minor-mode-map (kbd "RET") #'w3m-view-url-with-external-browser) |
1589 (define-key w3m-minor-mode-map (kbd "RET") #'my-w3m-view-url) |
1586 (define-key w3m-minor-mode-map (kbd "S-RET") #'w3m-safe-view-this-url) |
1590 (define-key w3m-minor-mode-map (kbd "S-RET") #'w3m-safe-view-this-url) |
1587 (define-key w3m-minor-mode-map (kbd "<left>") #'backward-char) |
1591 (define-key w3m-minor-mode-map (kbd "<left>") #'backward-char) |
1588 (define-key w3m-minor-mode-map (kbd "<right>") #'forward-char) |
1592 (define-key w3m-minor-mode-map (kbd "<right>") #'forward-char) |
1589 (define-key w3m-minor-mode-map (kbd "<up>") #'previous-line) |
1593 (define-key w3m-minor-mode-map (kbd "<up>") #'previous-line) |
1590 (define-key w3m-minor-mode-map (kbd "<down>") #'next-line))) |
1594 (define-key w3m-minor-mode-map (kbd "<down>") #'next-line))) |