customizing Mail Source in 0.74

customizing Mail Source in 0.74

[Michael Harnois]

produces this delightful error:

Signaling: (void-function nil)
  nil((constant :args (nil)) nil)
  widget-apply((constant :args (nil)) :match nil)
  widget-choice-match((choice :args ((string :value "") (constant :args ...))) nil)
  widget-apply((choice :args ((string :value "") (constant :args ...))) :match nil)
  custom-variable-value-create((custom-variable :custom-form edit :indent 0 :parent (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) :value mail-source-movemail-args :custom-level 2 :custom-prefixes ("mail-source-") :tag "Movemail Args" :group (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown
  !
!
:documentation-shown t)))
  widget-apply((custom-variable :custom-form edit :indent 0 :parent (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) :value mail-source-movemail-args :custom-level 2 :custom-prefixes ("mail-source-") :tag "Movemail Args" :group (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-
 s!
!
hown t)) :value-create)
  widget-default-create((custom-variable :custom-form edit :indent 0 :parent (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) :value mail-source-movemail-args :custom-level 2 :custom-prefixes ("mail-source-") :tag "Movemail Args" :group (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown :docum
 e!
!
ntation-shown t)))
  widget-apply((custom-variable :custom-form edit :indent 0 :parent (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) :value mail-source-movemail-args :custom-level 2 :custom-prefixes ("mail-source-") :tag "Movemail Args" :group (custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #1 :indent 0 :args ...) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons (... ...) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-
 s!
!
hown t)) :create)
  widget-create-child-and-convert((custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children (...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons ((documentation-string :to #<marker at 391 in *Customize Group: Mail Source* 0x8a3effc> :from #<marker at 364 in *Customize Group: Mail Source* 0x8a3f074> :buttons nil :doc-extent #<extent (364, 390) widget-doc 0x867a850 in buffer *Customize Group: Mail Source*> :parent #0 :indent 0 :value "The mail-fetching library." :args nil) (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #0 :indent 0 :args ...)) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) custom-variable :group (cust
 o!
!
m-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children (...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons ((documentation-string :to #<marker at 391 in *Customize Group: Mail Source* 0x8a3effc> :from #<marker at 364 in *Customize Group: Mail Source* 0x8a3f074> :buttons nil :doc-extent #<extent (364, 390) widget-doc 0x867a850 in buffer *Customize Group: Mail Source*> :parent #0 :indent 0 :value "The mail-fetching library." :args nil) (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #0 :indent 0 :args ...)) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) :tag "Movemail Args" :custom-prefixes ("mail-source-") :custom-level
  !
!
2 :value mail-source-movemail-args)
  #<compiled-function (entry) "...(66)" [widget-insert "\n" count custom-skip-messages 0 display-message progress format "Creating group members... %2d%%" 100.0 length widget-create-child-and-convert widget entry :group :tag custom-unlispify-tag-name :custom-prefixes custom-prefix-list :custom-level level :value ?\n] 13>((mail-source-movemail-args custom-variable))
  mapcar(#<compiled-function (entry) "...(66)" [widget-insert "\n" count custom-skip-messages 0 display-message progress format "Creating group members... %2d%%" 100.0 length widget-create-child-and-convert widget entry :group :tag custom-unlispify-tag-name :custom-prefixes custom-prefix-list :custom-level level :value ?\n] 13> ((mail-source-movemail-program custom-variable) (mail-source-movemail-args custom-variable) (mail-source-crash-box custom-variable) (mail-source-directory custom-variable) (mail-source-default-file-modes custom-variable) (mail-source-delete-incoming custom-variable)))
  custom-group-value-create((custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children (...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons ((documentation-string :to #<marker at 391 in *Customize Group: Mail Source* 0x8a3effc> :from #<marker at 364 in *Customize Group: Mail Source* 0x8a3f074> :buttons nil :doc-extent #<extent (364, 390) widget-doc 0x867a850 in buffer *Customize Group: Mail Source*> :parent #0 :indent 0 :value "The mail-fetching library." :args nil) (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #0 :indent 0 :args ...)) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t))
  widget-apply((custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children (...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons ((documentation-string :to #<marker at 391 in *Customize Group: Mail Source* 0x8a3effc> :from #<marker at 364 in *Customize Group: Mail Source* 0x8a3f074> :buttons nil :doc-extent #<extent (364, 390) widget-doc 0x867a850 in buffer *Customize Group: Mail Source*> :parent #0 :indent 0 :value "The mail-fetching library." :args nil) (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #0 :indent 0 :args ...)) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) :value-create)
  widget-default-create((custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children (...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons ((documentation-string :to #<marker at 391 in *Customize Group: Mail Source* 0x8a3effc> :from #<marker at 364 in *Customize Group: Mail Source* 0x8a3f074> :buttons nil :doc-extent #<extent (364, 390) widget-doc 0x867a850 in buffer *Customize Group: Mail Source*> :parent #0 :indent 0 :value "The mail-fetching library." :args nil) (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #0 :indent 0 :args ...)) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t))
  widget-apply((custom-group :custom-magic (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children (...) :parent #0 :indent 0 :args (nil)) :sample-extent #<extent (240, 251) 0x89fea58 in buffer *Customize Group: Mail Source*> :buttons ((documentation-string :to #<marker at 391 in *Customize Group: Mail Source* 0x8a3effc> :from #<marker at 364 in *Customize Group: Mail Source* 0x8a3f074> :buttons nil :doc-extent #<extent (364, 390) widget-doc 0x867a850 in buffer *Customize Group: Mail Source*> :parent #0 :indent 0 :value "The mail-fetching library." :args nil) (custom-magic :to #<marker at 364 in *Customize Group: Mail Source* 0x8a3f104> :from #<marker at 312 in *Customize Group: Mail Source* 0x8a3f11c> :children ... :parent #0 :indent 0 :args ...)) :value mail-source :tag "Mail Source" :custom-state unknown :documentation-shown t) :create)
  widget-create(custom-group :documentation-shown t :custom-state unknown :tag "Mail Source" :value mail-source)
  #<compiled-function (entry) "...(19)" [widget-create entry :documentation-shown t :custom-state unknown :tag custom-unlispify-tag-name :value] 10>((mail-source custom-group))
  mapcar(#<compiled-function (entry) "...(19)" [widget-create entry :documentation-shown t :custom-state unknown :tag custom-unlispify-tag-name :value] 10> ((mail-source custom-group)))
  custom-buffer-create-internal(((mail-source custom-group)) " for group Mail Source")
  custom-buffer-create(((mail-source custom-group)) "*Customize Group: Mail Source*" " for group Mail Source")
  customize-group(mail-source)
  custom-group-link-action((custom-group-link :to #<marker at 1720 in *Customize Group: Gnus* 0x87dc2d4> :from #<marker at 1719 in *Customize Group: Gnus* 0x87dc2bc> :button-extent #<extent (1719, 1720) H keymap help-echo balloon-help button-or-field button 0x86e2388 in buffer *Customize Group: Gnus*> :glyph-down #<glyph (buffer) #<image-specifier global=... fallback=... 0x5ccb>0x5cca> :glyph-up #<glyph (buffer) #<image-specifier global=... fallback=... 0x5cbf>0x5cbe> :indent 0 :parent (custom-group :to #<marker at 1767 in *Customize Group: Gnus* 0x87dc394> :from #<marker at 1718 in *Customize Group: Gnus* 0x87dc37c> :documentation-indent 0 :buttons (... ... #0) :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2070 in *Customize Group: Gnus* 0x873c51c> :from #<marker at 2145 in *Customize Group: Gnus* 0x873c504> :children nil :indent 0 :parent #1 :args ...) :sample-extent #<extent (1721, 1732) 0x86e24bc in buffer *Customize Group: Gnus*> :indent 0 :parent (
 c!
!
ustom-group :to #<marker at 2145 in *Customize Group: Gnus* 0x87346b4> :from #<marker at 201 in *Customize Group: Gnus* 0x873469c> :children ... :custom-magic ... :sample-extent #<extent (239, 243) 0x89fe87c in buffer *Customize Group: Gnus*> :buttons ... :value gnus :tag "Gnus" :custom-state standard :documentation-shown t) :value mail-source :custom-level 2 :custom-prefixes ("gnus-") :tag "Mail Source" :group (custom-group :to #<marker at 2145 in *Customize Group: Gnus* 0x87346b4> :from #<marker at 201 in *Customize Group: Gnus* 0x873469c> :children ... :custom-magic ... :sample-extent #<extent (239, 243) 0x89fe87c in buffer *Customize Group: Gnus*> :buttons ... :value gnus :tag "Gnus" :custom-state standard :documentation-shown t)) :tag-glyph ("open-up" "open-down") :tag "Open" :value mail-source :args nil) #<buttonup-event button1up>)
  widget-apply((custom-group-link :to #<marker at 1720 in *Customize Group: Gnus* 0x87dc2d4> :from #<marker at 1719 in *Customize Group: Gnus* 0x87dc2bc> :button-extent #<extent (1719, 1720) H keymap help-echo balloon-help button-or-field button 0x86e2388 in buffer *Customize Group: Gnus*> :glyph-down #<glyph (buffer) #<image-specifier global=... fallback=... 0x5ccb>0x5cca> :glyph-up #<glyph (buffer) #<image-specifier global=... fallback=... 0x5cbf>0x5cbe> :indent 0 :parent (custom-group :to #<marker at 1767 in *Customize Group: Gnus* 0x87dc394> :from #<marker at 1718 in *Customize Group: Gnus* 0x87dc37c> :documentation-indent 0 :buttons (... ... #0) :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2070 in *Customize Group: Gnus* 0x873c51c> :from #<marker at 2145 in *Customize Group: Gnus* 0x873c504> :children nil :indent 0 :parent #1 :args ...) :sample-extent #<extent (1721, 1732) 0x86e24bc in buffer *Customize Group: Gnus*> :indent 0 :parent (custom-group
  !
!
:to #<marker at 2145 in *Customize Group: Gnus* 0x87346b4> :from #<marker at 201 in *Customize Group: Gnus* 0x873469c> :children ... :custom-magic ... :sample-extent #<extent (239, 243) 0x89fe87c in buffer *Customize Group: Gnus*> :buttons ... :value gnus :tag "Gnus" :custom-state standard :documentation-shown t) :value mail-source :custom-level 2 :custom-prefixes ("gnus-") :tag "Mail Source" :group (custom-group :to #<marker at 2145 in *Customize Group: Gnus* 0x87346b4> :from #<marker at 201 in *Customize Group: Gnus* 0x873469c> :children ... :custom-magic ... :sample-extent #<extent (239, 243) 0x89fe87c in buffer *Customize Group: Gnus*> :buttons ... :value gnus :tag "Gnus" :custom-state standard :documentation-shown t)) :tag-glyph ("open-up" "open-down") :tag "Open" :value mail-source :args nil) :action #<buttonup-event button1up>)
  widget-apply-action((custom-group-link :to #<marker at 1720 in *Customize Group: Gnus* 0x87dc2d4> :from #<marker at 1719 in *Customize Group: Gnus* 0x87dc2bc> :button-extent #<extent (1719, 1720) H keymap help-echo balloon-help button-or-field button 0x86e2388 in buffer *Customize Group: Gnus*> :glyph-down #<glyph (buffer) #<image-specifier global=... fallback=... 0x5ccb>0x5cca> :glyph-up #<glyph (buffer) #<image-specifier global=... fallback=... 0x5cbf>0x5cbe> :indent 0 :parent (custom-group :to #<marker at 1767 in *Customize Group: Gnus* 0x87dc394> :from #<marker at 1718 in *Customize Group: Gnus* 0x87dc37c> :documentation-indent 0 :buttons (... ... #0) :custom-magic (custom-magic :value nil :buttons nil :to #<marker at 2070 in *Customize Group: Gnus* 0x873c51c> :from #<marker at 2145 in *Customize Group: Gnus* 0x873c504> :children nil :indent 0 :parent #1 :args ...) :sample-extent #<extent (1721, 1732) 0x86e24bc in buffer *Customize Group: Gnus*> :indent 0 :parent (custo
 m!
!
-group :to #<marker at 2145 in *Customize Group: Gnus* 0x87346b4> :from #<marker at 201 in *Customize Group: Gnus* 0x873469c> :children ... :custom-magic ... :sample-extent #<extent (239, 243) 0x89fe87c in buffer *Customize Group: Gnus*> :buttons ... :value gnus :tag "Gnus" :custom-state standard :documentation-shown t) :value mail-source :custom-level 2 :custom-prefixes ("gnus-") :tag "Mail Source" :group (custom-group :to #<marker at 2145 in *Customize Group: Gnus* 0x87346b4> :from #<marker at 201 in *Customize Group: Gnus* 0x873469c> :children ... :custom-magic ... :sample-extent #<extent (239, 243) 0x89fe87c in buffer *Customize Group: Gnus*> :buttons ... :value gnus :tag "Gnus" :custom-state standard :documentation-shown t)) :tag-glyph ("open-up" "open-down") :tag "Open" :value mail-source :args nil) #<buttonup-event button1up>)
  widget-glyph-click(#<buttonup-event button1up>)
  widget-button1-click(#<buttonup-event button1up>)
  call-interactively(widget-button1-click)

-- 
Michael D. Harnois, Redeemer Lutheran Church, Washburn, IA 
mharnois@willinet.net                      aa0bt@aa0bt.ampr.org 
 There are three steps in the revelation of any truth: in the 
 first, it is ridiculed; in the second, resisted; in the 
 third, it is considered self-evident. -- Arthur Schopenhauer

Re: customizing Mail Source in 0.74

[Lars Magne Ingebrigtsen]

Michael Harnois <mharnois@willinet.net> writes:

> produces this delightful error:
> 
> Signaling: (void-function nil)
>   nil((constant :args (nil)) nil)

Yup.  Fix in Pterodactyl Gnus v0.75.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen