Re: Gnus using lexical-binding

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> Thats gets a little further, but...
>>
>> Debugger entered--Lisp error: (void-variable gnus-tmp-number-total)
>
> OK, I `defvar`d all the gnus-tmp-* I could find now.
> Please try again.
>
> Note that the branch has a new name `scratch/lexical-gnus-rc` because
> I have now cleaned up the commit messages, so it's basically "ready to
> be merged".

I'm now seeing a bug with `gnus-article-browse-html-article' that might
(?) be a result of this, I'm not sure. Below is the definition of
`gnus-visible-headers', which I haven't changed from its default. When
viewing an HTML part, however, and we reach the function
`article-hide-headers', the definition of `gnus-visible-headers' now
looks like this:

((funcall #'#f(compiled-function () #<bytecode 0x134a5ff509cc6ffd>)))

Which `article-hide-headers' isn't set up to handle.

Could this be a result of lexical binding?


(defcustom gnus-visible-headers
  "^From:\\|^Newsgroups:\\|^Subject:\\|^Date:\\|^Followup-To:\\|^Reply-To:\\|^Organization:\\|^Summary:\\|^Keywords:\\|^To:\\|^[BGF]?Cc:\\|^Posted-To:\\|^Mail-Copies-To:\\|^Mail-Followup-To:\\|^Apparently-To:\\|^Gnus-Warning:\\|^Resent-From:"
  "All headers that do not match this regexp will be hidden.
This variable can also be a list of regexp of headers to remain visible.
If this variable is non-nil, `gnus-ignored-headers' will be ignored."
  :type '(choice
	  (repeat :value-to-internal (lambda (widget value)
				       (custom-split-regexp-maybe value))
		  :match (lambda (widget value)
			   (or (stringp value)
			       (widget-editable-list-match widget value)))
		  regexp)
	  (const :tag "Use gnus-ignored-headers" nil)
	  regexp)
  :group 'gnus-article-hiding)