Sender: Suvayu Ali <fatkasuvayu@gmail.com>
Date: Thu, 27 Aug 2015 12:53:29 +0200
From: Suvayu Ali <fatkasuvayu+linux@gmail.com>
To: notmuch@notmuchmail.org
Subject: Re: how to make return follow hyperlink?
Message-ID: <20150827105329.GT31789@chitra.no-ip.org>
Mail-Followup-To: notmuch@notmuchmail.org
References:
 <CAE+_6TxgZVAt1Y2E2=fRPo96krQ=W6cv9WV2pR8wLE3NSJaNAQ@mail.gmail.com>
 <m28u8xcenl.fsf@heart-of-gold.hh.sledj.net>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <m28u8xcenl.fsf@heart-of-gold.hh.sledj.net>
User-Agent: Mutt/1.5.23.1 (2014-03-12)
Precedence: list

On Thu, Aug 27, 2015 at 09:35:26AM +0100, David Edmondson wrote:
> On Wed, Aug 26 2015, Peter Salazar <cycleofsong@gmail.com> wrote:
> > How do I make it so that hitting RET on a hyperlink follows it? Is there a
> > setting analogous to org-return-follows-link? I often have links in
> > incoming emails, and I'd like to be able to open them in my browser with
> > one keystroke.
> 
> Having that binding would conflict badly with the existing binding for
> `notmuch-show-toggle-message' (which has been in place for a long
> time!).
> 
> Perhaps not what you want, but for me, clicking on the link with the
> mouse opens the link.

I think you can hack around by advicing notmuch-show-toggle-message and
making it context sensitive.  I don't really know the best way to
determine the context, but a quick hack would be to look at the
face-at-point.  Of course this requires font-lock-mode be active.

I once did something like this to expand abbreviations (below).  Of
course you will have to use a defadvice instead of a defun.

Hope this helps,


(defun sa-expand-abbrev-in-context (expand)
  "Expands abbreviations according to the context. Determines
whether within comments or source by looking at the face name. If
within comments the `basic-text-mode-abbrev-table' is used, the
major mode abbrev-table is used otherwise.

Expansion is done by the function passed as the argument. This is
controlled by the \"abnormal\" hook `abbrev-expand-functions'."
;; backward-char checks if end-of-buffer as when point at e-o-b face is `nil'
;; the function call expand does the expansion, usually `expand-abbrev'
  (if (save-excursion
	(string-match "comment\\|string"
		      (symbol-name (if (< (point) (point-max))
				       (face-at-point)
				     (backward-char)
				     (face-at-point)))))
      (let ((local-abbrev-table basic-text-mode-abbrev-table))
	(funcall expand))
    (funcall expand)))


-- 
Suvayu

Open source is the future. It sets us free.