diff options
Diffstat (limited to 'lisp/gnus/nndoc.el')
| -rw-r--r-- | lisp/gnus/nndoc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/gnus/nndoc.el b/lisp/gnus/nndoc.el index a3a66454853..c68e2012713 100644 --- a/lisp/gnus/nndoc.el +++ b/lisp/gnus/nndoc.el @@ -427,9 +427,9 @@ from the document.") (setq result nil)))) (unless (or result results) (error "Document is not of any recognized type")) - (if result - (car entry) - (cadar (last (sort results 'car-less-than-car)))))) + (car (if result + entry + (cdar (last (sort results #'car-less-than-car))))))) ;;; ;;; Built-in type predicates and functions |