Re: EUDC and multiple valued attributes

<lines deleted by Adrian> David> Dear Bug Team! David> I sent this directly to Oscar about a month ago. Perhaps David> that was a mistake:-) Here it is in hopes that someone else David> can look at applying this patch. Hello David! Are you aware of all the Load-Path Lisp Shadows you have? You might want to do something about these. Please send patches to xemacs-patches(a)xemacs.org instead. See item 6 in http://www.xemacs.org/Develop/index.html for details about submitting patches. In particular: Please send ChangeLog entries with your patches. The ChangeLog should describe what the change is and, if it's non-trivial, what feature it implements or bug it fixes and how. Please send unified diffs if your diff program supports the -u switch. David> Recently I configured EUDC to display a button for smime certificate David> data stored in our ldap server. I found that some people have two David> certs in the database. What happens is that when a cert is up for David> renewal, the user is informed ahead of time and therefore can use the David> old (aka current) cert to authenticate and generate a new one, which David> is not valid until the old one expires. Both certs are stored in the David> usercertificate;binary attribute in the ldap database until the old David> one actually expires. The lookup functions return the two values in a David> list (the default value of eudc-duplicate-attribute-handling-method David> for attributes not otherwise handled and the desired action in this David> case anyway since it's easier to parse them as separate values rather David> than parsing a single string or duplicating results (no way to easily David> display which is which)). eudc-print-attribute-value breaks in this David> situation because it tries to run that list as a function in a call to David> eval. The following change, which uses funcall instead of eval, fixes David> that. I hope it's an appropriate fix. I did still have to write my Could you please compress the above to a succinct ChangeLog entry? David> own function to use instead of eudc-display-generic-binary to iterate David> over the list, but I think that's appropriate since S/Mime certs are David> not really generic binaries. David> Thanks, David> *** eudc.el~ Sat Aug 18 09:59:09 2001 David> --- eudc.el Wed Jan 23 12:46:37 2002 David> *************** David> *** 551,557 **** David> (val (cdr field))) David> (if match David> (progn David> ! (eval (list (cdr match) val)) David> (insert "\n")) David> (mapcar David> (function David> --- 551,557 ---- David> (val (cdr field))) David> (if match David> (progn David> ! (funcall (cdr match) val) David> (insert "\n")) David> (mapcar David> (function David> ================================================================ David> System Info to help track down your bug: David> --------------------------------------- David> uname -a: SunOS faron.mitre.org 5.7 Generic_106541-05 sun4u sparc SUNW,Ultra-Enterprise David> ../configure '--prefix=/usr/rcf/xemacs' '--site-includes=/usr/dt/include /usr/openwin/include /usr/rcf/include' '--site-libraries=/usr/dt/lib /usr/openwin/lib /usr/rcf/lib' '--site-runtime-libraries=/usr/dt/lib /usr/openwin/lib /usr/rcf/lib' '--compiler=cc' '--srcdir=..' David> XEmacs 21.4.6 "Common Lisp" configured for `sparc-sun-solaris2.7'. David> Compilation / Installation: David> Source code location: /afs/rcf.mitre.org/system/src/local/xemacs/060/xemacs-21.4.6 David> Installation prefix: /usr/rcf/xemacs David> Additional header files: /usr/dt/include /usr/openwin/include /usr/rcf/include David> Additional libraries: /usr/dt/lib /usr/openwin/lib /usr/rcf/lib David> Runtime library search path: /usr/dt/lib:/usr/openwin/lib:/usr/rcf/lib David> Operating system description file: `s/sol2.h' David> Machine description file: `m/sparc.h' David> Compiler: cc -v -xO4 David> Relocating allocator for buffers: yes David> GNU version of malloc: yes David> Window System: David> Compiling in support for the X window system: David> - X Windows headers location: /usr/dt/include /usr/openwin/include David> - X Windows libraries location: /usr/dt/lib /usr/openwin/lib David> - Handling WM_COMMAND properly. David> Using Lucid menubars. David> Using Lucid scrollbars. David> Using Motif dialog boxes. David> Using Motif native widgets. David> TTY: David> Images: David> Compiling in support for GIF images (builtin). David> Compiling in support for XPM images. David> Compiling in support for PNG images. David> Compiling in support for JPEG images. David> Compiling in support for X-Face message headers. David> Sound: David> Compiling in support for sound (native). David> Databases: David> Compiling in support for Berkeley database. David> Compiling in support for GNU DBM. David> Compiling in support for LDAP. David> Internationalization: David> Mail: David> Compiling in support for "dot-locking" mail spool file locking method. David> Other Features: David> Inhibiting IPv6 canonicalization at startup. David> Compiling in support for ToolTalk. David> Compiling in support for dynamic shared object modules. David> Load-Path Lisp Shadows: David> ---------------------- David> (/afs/rcf/user/dsg/elisp/pop3 David> /afs/rcf/user/dsg/.xemacs/packages/lisp/gnus/pop3 <2678 lines deleted by Adrian> David> /afs/rcf/apps/unsupported/xemacs-stuff/xemacs-packages/lisp/zenirc/zenirc-18 David> /usr/rcf/xemacs/lib/xemacs/xemacs-packages/lisp/zenirc/zenirc-18) Oh, so I'm not the only one using zenirc? David> Installed XEmacs Packages: David> ------------------------- David> ((zenirc:version 1.13 :type regular) David> (xslt-process :version 1.06 :type regular) David> (xemacs-devel :version 1.4 :type single-file) David> (xemacs-base :version 1.57 :type regular) David> (w3 :version 1.21 :type regular) David> (vm :version 7.02 :type regular) David> (viper :version 1.31 :type regular) David> (view-process :version 1.11 :type regular) David> (vhdl :version 1.15 :type regular) David> (vc-cc :version 1.18 :type regular) David> (vc :version 1.3 :type regular) David> (tramp :version 1.02 :type regular) David> (tpu :version 1.12 :type regular) David> (tooltalk :version 1.13 :type regular) David> (tm :version 1.3 :type regular) David> (time :version 1.11 :type regular) David> (textools :version 1.12 :type regular) David> (text-modes :version 1.37 :type single-file) David> (texinfo :version 1.2 :type regular) David> (supercite :version 1.19 :type regular) David> (strokes :version 1.08 :type regular) David> (speedbar :version 1.22 :type regular) David> (sounds-wav :version 1.1 :type regular) David> (sounds-au :version 1.1 :type regular) David> (slider :version 1.13 :type regular) David> (sieve :version 1.01 :type regular) David> (sh-script :version 1.13 :type regular) David> (sgml :version 1.08 :type regular) David> (semantic :version 1.11 :type regular) David> (scheme :version 1.11 :type regular) David> (rmail :version 1.13 :type regular) David> (reftex :version 1.24 :type regular) David> (psgml :version 1.26 :type regular) David> (ps-print :version 1.02 :type regular) David> (prog-modes David> :version David> 1.49 David> :type David> single-file) David> (pcomplete :version 1.01 :type regular) David> (pcl-cvs :version 1.58 :type regular) David> (pc :version 1.21 :type single-file) David> (os-utils :version 1.26 :type single-file) David> (net-utils :version 1.23 :type single-file) David> (misc-games :version 1.15 :type single-file) David> (mine :version 1.14 :type regular) David> (mh-e :version 1.14 :type regular) David> (mew :version 1.16 :type regular) David> (mailcrypt :version 2.11 :type regular) David> (mail-lib :version 1.43 :type regular) David> (jde :version 1.32 :type regular) David> (ispell :version 1.24 :type regular) David> (ilisp :version 1.2 :type regular) David> (igrep :version 1.08 :type regular) David> (idlwave :version 1.24 :type regular) David> (hm--html-menus :version 1.17 :type regular) David> (gnus :version 1.58 :type regular) David> (gnats :version 1.13 :type regular) David> (games :version 1.13 :type regular) David> (fsf-compat :version 1.1 :type single-file) David> (frame-icon :version 1.09 :type regular) David> (forms :version 1.14 :type regular) David> (footnote :version 1.13 :type regular) David> (eudc :version 1.35 :type regular) David> (eterm :version 1.13 :type regular) David> (eshell :version 1.02 :type regular) David> (emerge :version 1.09 :type regular) David> (elib :version 1.1 :type single-file) David> (eieio :version 1.02 :type regular) David> (efs :version 1.27 :type regular) David> (edt :version 1.12 :type regular) David> (edit-utils :version 1.75 :type single-file) David> (ediff :version 1.35 :type regular) David> (edebug :version 1.14 :type regular) David> (dired :version 1.11 :type regular) David> (dictionary :version 1.06 :type regular) David> (debug :version 1.14 :type regular) David> (crisp :version 1.12 :type regular) David> (cookie :version 1.13 :type regular) David> (clearcase :version 1.02 :type regular) David> (cc-mode :version 1.27 :type regular) David> (calendar :version 1.18 :type regular) David> (calc :version 1.18 :type regular) David> (c-support :version 1.16 :type single-file) David> (build :version 1.05 :type regular) David> (bbdb :version 1.17 :type regular) David> (auctex :version 1.29 :type regular) David> (apel :version 1.2 :type regular) David> (ada :version 1.1 :type regular)) David> Features: David> -------- David> (compile diff-mode vcard bbdb-gui bbdb-hooks annotations flow-fill David> flyspell ispell footnote sort gnus-fun gnus-cite smiley timer David> gnus-async gnus-bcklg gnus-dup gnus-ml pop3 gnus-topic nndraft nnmh David> nnfolder ssh shell byte-optimize bytecomp byte-compile nnml bbdb-gnus David> bbdb-snarf gnus-agent gnus-srvr gnus-score score-mode nnvirtual nntp David> gnus-cache nnir utf7 passwd nnimap imap smtpmail time-stamp ebuff-menu David> electric dabbrev mail-extr gnus-msg gnus-art mm-uu mm-view gnus-sum David> nnoo gnus-group gnus-undo nnmail mail-source format-spec gnus-start David> gnus-range gnus-spec gnus-int gnus-win message mml mml-sec mml-smime David> smime dig mml1991 mml2015 mm-decode mm-bodies mm-encode mailcap David> mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums mailheader canlock David> gnus gnus-ems gnus-xmas messagexmas gnus-util time-date parse-time David> nnheader nnheaderxm mail-utils mm-util mail-prsvr xemacsbug shadow David> outline view-less view hyper-apropos eudcb-bbdb paren blink-paren David> font-lock time disp-table w3-auto cal-desk-calendar lunar solar David> cal-dst cal-persia cal-julian diary-lib appt calendar regexp-opt David> efs-cu edmacro eudcb-ldap ldap eudc eudc-options-file cus-edit David> cus-load eudc-vars overlay wid-edit cus-face bbdb-autoloads David> bbdb-obsolete-net bbdb-com mail-abbrevs sendmail bbdb timezone David> scroll-in-place filladapt tex-site crypt crypt++ rsz-minibuf complete David> env advice advice-preload mailcrypt rfc822 comint ring vc-hooks David> ediff-hook zenirc-autoloads xslt-process-autoloads David> xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads David> viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads David> vc-autoloads tramp-autoloads tpu-autoloads tooltalk-autoloads David> tm-autoloads time-autoloads textools-autoloads text-modes-autoloads David> texinfo-autoloads supercite-autoloads strokes-autoloads David> speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads David> slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads David> semantic-autoloads scheme-autoloads rmail-autoloads reftex-autoloads David> psgml-autoloads ps-print-autoloads prog-modes-autoloads David> pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads David> net-utils-autoloads misc-games-autoloads mine-autoloads mh-e-autoloads David> mew-autoloads mailcrypt-autoloads mail-lib-autoloads jde-autoloads David> ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads David> hm--html-menus-autoloads gnus-autoloads gnats-autoloads David> games-autoloads fsf-compat-autoloads frame-icon-autoloads David> forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads David> eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads David> efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads David> edebug-autoloads dired-autoloads dictionary-autoloads debug-autoloads David> crisp-autoloads cookie-autoloads clearcase-autoloads cc-mode-autoloads David> calendar-autoloads calc-autoloads c-support-autoloads build-autoloads David> auctex-autoloads apel-autoloads ada-autoloads lisp-autoloads loadhist David> auto-show fontl-hooks x-iso8859-1 gutter-items menubar-items x-menubar David> mode-motion mouse itimer auto-save lisp-mode easymenu iso8859-1 page David> buff-menu lib-complete help-nomule cus-file derived frame text-props David> obsolete cus-start custom widget cl-extra mini-cl cl cl-19 packages David> backquote very-early-lisp tooltalk lucid-scrollbars cut-buffer David> lucid-menubars motif-dialogs x c-balloon-help tty-frames tty toolbar David> native-sound scrollbar unix-processes multicast network-streams David> subprocesses modules menu-accelerator-support menubar berkeley-db dbm David> md5 xemacs gutter png gif jpeg xface xpm xbm lisp-float-type David> usg-unix-v dialog devices window-system base64) David> Recent keystrokes: David> ----------------- David> S l C-g SPC C-s e u d c C-b SPC h C-SPC C-n C-n C-n David> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n David> C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n David> C-n C-n C-n C-n C-n C-n C-n C-n M-w M-x s u b m i t David> - b u g - r e p o r t C-g M-v M-x M-p M-p M-p M-p M-p David> M-p M-p M-p M-p M-p M-p C-g M-x s u b m i t - b u f David> TAB BS g TAB misc-user David> Recent messages (most recent first): David> ----------------------------------- David> Parsing /afs/rcf/user/dsg/.mailrc... done David> Parsing /afs/rcf/user/dsg/.mailrc... David> Quit David> Quit David> No preceding item in read-command-history David> Quit David> Loading compile...done David> Loading compile... David> Loading diff-mode...done David> Loading diff-mode... David> No more unread articles David> Generating summary...done David> Generating summary... David> Scoring...done David> Scoring... David> Scoring...done David> Scoring... David> Suppressing duplicates...done David> Suppressing duplicates... David> Fetching headers for nnimap+linus:INBOX.emacs.misc...done David> -- David> Dave Goldberg David> david.goldberg6(a)verizon.net -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/