[VM] observation of mismatch for customization buffer for variable vm-auto-folder-alist

[Alan]

I noted recently that the example given for defining variable
"vm-auto-folder-alist" in the Info node "(vm) Defined Folders" does not
conform to the "(defcustom vm-auto-folder-alist" form in "vm-vars.el".  It
causes the display of the complaint "mismatch" when "(customize-variable
(quote vm-virtual-folder-alist))" is used.

I've managed to ignore this mismatch for quite some time, but finally
decided to investigate.  I even created matching paths and folder names (and
folder content) to be able to use the example "asis" and do some testing.

That example is:

(setq vm-virtual-folder-alist
      '(
        ;; start virtual folder definition
        ("virtual-folder-name"
         (("/path/to/folder" "/path/to/folder2")
          (header "foo")
          (header "bar")
          )
         (("/path/to/folder3" "/path/to/folder4")
          (and (header "baz") (header "woof"))
          )
         )
        ;; end of virtual folder definition
        )
      )

Its equivalent, which satisfies the "(defcustom vm-auto-folder-alist" form, is:

Value: (("virtual-folder-name"
  (("/path/to/folder" "/path/to/folder2")
   (or
    (header "foo")
    (header "bar"))))
 ("virtual-folder-name"
  (("/path/to/folder3" "/path/to/folder4")
   (and
    (header "baz")
    (header "woof")))))

The above is copied from "(describe-variable 'vm-auto-folder-alist)".


Below is shown a copy of the buffer resulting from the use of
"(customize-variable (quote vm-virtual-folder-alist))":

To apply changes, use the Save or Set buttons.
For details, see Saving Customizations in the Emacs manual.

                                          Search 

 Operate on all settings in this buffer:
  Set for current session   Save for future sessions 
  Undo edits   Reset to saved   Erase customizations     Exit 

Hide Vm Virtual Folder Alist: Value Menu Repeat:
INS DEL Virtual Folder Name: virtual-folder-name
            Folder List:
            INS DEL String: /path/to/folder
            INS DEL String: /path/to/folder2
            INS
            Selectors: (or (header "foo") (header "bar"))
INS DEL Virtual Folder Name: virtual-folder-name
            Folder List:
            INS DEL String: /path/to/folder3
            INS DEL String: /path/to/folder4
            INS
            Selectors: (and (header "baz") (header "woof"))
INS
    State : SET for current session only.
   Non-nil value should be a list of virtual folder definitions. More
Groups: Vm Virtual